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0001 8 Ztitle "RMS2IDK = Analyze Things for Prolog 2 Indexed Files’ 


it module rms2idx 
4 : ident="v04-000") = begin 
'4'F4 1! 
+4) 1 VeRO OHPRHHHHHHAHHHEREHHAHHHHHHEHEHHEKEKAETHAEHAHHAEHHeELeHeeeeeeteeeTeeeeeee 
0007 1 !* * 
0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. : 
port : # ALL RIGHTS RESERVED. . 
‘e ® 
Bote 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
pole 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
od : ° TRANSFERRED. * 
‘e + 
0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
B98) : :° CORPORATION. * 
‘e w 
0098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
00246 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
0025 1 !* . 
0026 1 !* * 
it 34 1 SRO RRARAA RAHA AAAAAERERAAAAAHEHEAEEEAAREEATATATAERERARERRAAEAREe ERA eAee 
1 ‘ 
594 1 
0030 1 !++ 
3) : Facility: VAX/VMS Analyze Facility, Analyze Things for Prolog 2 
0035 1 ! Abstract: This module is responsible for anotyey various structures 
0034 1! in prolog 2 indexed files. It also includes those routines 
0035 1! that are common to prolog 2 and 3. 
0036 1! , 
0037 1! : 
0038 1 ! Environment: 
0039 1! 
Bee : Author: Paul C. Anagnostopoulos, Creation Date: 11 March 1981 
ape ; Modifiez By: 
0044 1! v03-005 PCA1012 Paul C. Anagnost oulos 6-Apr-1983 
0045 1! Change the bucket size check so that it uses the new 
046 1! Literal value BKTSC_MAXBKTSIZ. The maximum bucket size 
047 1! was increased, so a literal value was a good idea. 
0048 1! Add code to handle the new total area allocation field 
sb : in the area descriptor. 
0051 1! v03-004 PCA1011 Paul C. Anagnostopoulos 11-Apr-1983 
B36 iz. Change the message prefix to ANLRMS$_ to ensure that 
0053 1! message symbols are unique across alT ANALYZEs. This 
it : is necessitated by the new merged message files. 
0056 1! v03-003 PCA1001 ' Paul C. Anagnostopoulos 12-0ct-1982 
0057 1! Clean up this module to make it more consistent with 


= 
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3 : the prologue 3 stu n particularly where 
58 0058 1! h l 3 ff in RMS3IDX icularly wh 

a 0059 1! SIDRs are concerned. Remove all of the alignment 

; 60 0060 1! information from the area descriptor display. Add the 

3 $ 48 ; : new quadword key data types. 

; 6 $008 1! v03-002 PCA0001 Paul Anagnostopoulos 16-Mar-1982 

>; «664 0064 1! Remove logic for prologue 3 data type array in key 

3 # 0065 : descriptor. It’s been decommitted for V3A. 

3 «6Of 0067 ; v03-001 PCA0002 Paul Anagnostopoulos 16-Mar-1982 

> 68 0068 1! Don't display root and data bucket VBNs if the index 

3 ; Be i ! is not initialized. 


‘ 8 
RASZ21DK RMS21DX = Analyze Things for Prolog 2 Indexed F 15-Sep-1984 23:53:24 AX-11 Bliss-32 v4.0-74 
yoe-000 edule Secleretions ° 1aneeen19be 19:83:99 FaNacdyz sae laneolon psec 
71 
7 


3 f } Asbttl "Module Declarations’ 
: a O78 : : Libraries and Requires: 
eg. 075 1 
ee b76 1 Library ‘lib’; 
3 % 7 : require ‘rmsreq'; 
is 80 05 1! 
; + 32 3 : : Table of Contents: 
: 6s Begy 1 
3 0591 1 forward routine 
ig 85 8296 1 anl$idx_prolog: novalue, 
is & 5935 1 anl$area_descriptor: novalue, 
3 87 0594 +1 anl$key_descriptor, 
is 88 0595 1 anl$2bucket_header, 
is 89 9296 1 anl$2index_record, 
3; # 0597 #1 anl$2primary_data_record, 
- 0598 1 anl$2format_primary_key: novalue, 
2 599 1 anl$2sidr_record, 
3 4, pend ; anl$2sidr_pointer; 
; 0602 1! 
3 38 pen? : External References: 
; | «(98 0605 1 
; 099 0606 1 external routine 
: 100 0607 1 anl$bucket, 
3: 101 0 1 anl$bucket_callback, 
3 136 0609 1 anl$check_flags, 
; 10 0610 1 anl$data_caliback, 
; 1046 0611 1 anl$format_error, 
3; 105 0612 1 anl$format_flags, 
; 106 0613 1 anl$format_hex, 
3 107 0614 1 anl$format_line, 
: 108 0615 1 anl$format_skip, 
3; 109 0616 1 anl$index callback, | 
3 BY Role : anl$prepare_quoted_string; 
s 112 0619 1 external 
3 115 0620 1 anl$gb_mode: byte 
> 114 0621 1 ani$gl-fat: ref blockl. byte), 
3 132 poe¢ ' anl$gw_prolog: word; 
s 117 0624 1! 
3 is bes2 : Own Variables: 


=. 


rw 
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F 
32 


; 1 7 ; Esbttl *ANLSIDX_PROLOG = Format and Check an Indexed File Prolog’ 

lee 
1 g ; 1! Functional Description: : 
1246 01! his routine is reponsible for formatting a report and checking 
: 5 0631 ; : the prolog of an indexed file. 
1 5 be : 1 | Formal Parameters: 
128 06 1! prolog_bsd A BSD describing the pretee. 
129 0635 1! repor A boolean, true if we are to print a report. 
; ; Be : indent_level The indentation level of the report. 
1 8 1 | Implicit Inputs: 
: § 0639 : } global data 
135 0641 1 | Implicit Outputs: 
; Bse§ : global data 
138 0664 Returned Value: 

é none 

140 ROSS 1! 
re ont : Side Effects: 
128 0649 1 in 
144 0650 1 
145 0651 1 : : 
Hr | $636 global routine anl$idx_prolog(prolog_bsd,report,indent_level): novalue = begin 
148 0654 bind 
132 8832 § p = .prolog_bsd: bsd; 
151 0657 local 
12g pees sp: ref block(€,byte); 
154 0660 . : ; 
155 0661 ! We can start right off and format the prolog if requested. Begin with 
138 pees ! a nice heading 
158 0664 sp = .p(bsd$l_bufptr]; 
159 0665 if .report then ( ’ : 
160 0666 anl$format_lLine(3,.indent_level,anlrms$_idxprolog); 
+ 3 poet anl$format~skip(0); 
168 +434 ! Format the first area VBN and number of areas. 
1° ste anl$format_line(0,.indent_level+1,anlrms$_idxproareas,.sp(plg$b_amax],.sp[plg$b_avbn]); 
+ 34 0678 ! Format the prolog version number. 
4 por? 3) anl$format_line(0,.indent_level+1,anirms$_prologver,.spl(plg$w_ver_no]); 


~w 
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3 176 a ! Now we can check the prolog. Make sure the area information is reasonable. 
5 17% 23 if tite avbn) issu 
; 175 -splp g$b, amax) eqlu 
: 178 1 an $format _srrortentract. seecereavest..otbedst.. vbn]); 
178 i return; 
. 180 5 end; 


TITLE RMSZ2I1DX weren | Analyze Things for Prolog 2 I 
nde 
-IDENT \v04-000\ 


-EXTRN ANLRMS$_OK, ANLRMS$_ALLOC 
EXTRN ANLRMS$~ANYTHING 
“EXTRN ANLRMSS= “BACKUP, ANLRMSS_8KT 


-EXTRN ANLRMS$_ FILED, | tee, _F ILEORG 
-EXTRN ANCRMSS” —F ILESP 
-EXTRN ANLRMSS$_ “Neh TANLAMSS, GLOBAL BUF S 


z 


“EXTRN ANLRMS$~IDXAREAALLOC 
TEXTRN ANLRMS$~IDXAREABKTSZ 


s AREAQ 
-EXTRN ANLRMS$~IDXAREARECL 
-EXTRN ANLRMS$~IDXAREAUSED 


Ye ww ft 


& 
IDK = Analyze Things for Prolog 2 Indexed F 14..8 p-19 4 AX-11 Bliss-32 v4.0-74 
weeibe PROLOG = feract end 4 Check sn * Indexed Fi Fi 14- att 73 33: % peg —— Bsc 


R KUP 
-EXTRN ANLRMSS$_NOEXPIRATION 
-EXTRN ANLRMSS_NOSPANF ILLER 


EXTR OL 
SEXTRN ANLRMS$—R RELIAB 
“EXTRN ANLRMS$~STATHDG 

E ANLRM 


x LRMS 
-EXTRN At RMSS-> OWNERU 


ANL JNL, ANLRMS S$_AIJNL 
-EXTRN ANLRMS$"B JNL, ANLRMS$_ATJNL 
Ab. ANLRMSS$— pres ANLRMS$~BADCMD 


x PATH 
EXTRN ANLRMS$"BADVBN, ANLRMS$_DOWNHELP 
EXTRN ANLRMS$~DOWNPATH 


0G 
ANLRMS$_REVISION 


DX_PROLOG = Format and Check an Indexed Fi 14-$ ANALYZ.SRCJRMS21DX.832;1 


-EXTRN ANLRMSS$_ ana > ag 
ANLRMS$_NO - ANLRMS$_NODOWN 
«EXTRN = ANLRMSS$_ “NONEXT: ANCRMS$> —— 
E ANLRMS$_ “NORECS, ANLRMS$_NORR 
eEXTRN ANLRASSR RESTDONE 
sEXTRN = ANLRMSS~STACKFULL 

ANLRMS S$- 


ange 1pe my tte = Analyze Tetngs for Prolog 2 Indexed F 15-5 se0-19 4 $3: $3: % AX-11 Bliss-32 V4.0-742 


x S$_FDLCONTIG 
-EXTRN ANLRMS$—FDLEXTENSION 
~-EXTRN ANLRMS$~FDLGLOBALBUF S 


, “FDLSPAN 

“EXTRN ANLRMS$~ =FDLCC, ZANLRMSS _FDLVFCSIZE 
“EXTRN ANLRMSS$~FOLF 

> rn AML RASS FDLSIZe 


co PILL 
~-EXTRN ANLRMS$_FDLDATAKEYCOMPB 
-EXTRN ANLRMSS$_FDLDATARECCOMPB 
-EXTRN ANLRMSS$_FDLDUPS 
-EXTRN ANLRMSS$_FDLINDEXAREA 
-EXTRN ANLRMS$_ per imeariee 
«EXTRN ANLRMSS$_FDLINDEXF ILL 
-EXTRN ANLRMSS$_ FDLL 1 INDEXAREA 
EXT =F DLKE YNAME 


-EXTRN = ANLRMS$"FDL DATASPACE 
-EXTRN ANLRMSS$_FDLDEPTH 
-EXTRN ANLRMS$~FDLDUPSPER 
-EXTRN ANLRMS$~FDLIDXCOMP 


anseipy ty gi = Analyze seine gfe for cfroles. 2 Indexed F 15-sep-1984 $3:33:88 AX-11_ Bliss-32 V4.0-742 


PROLOG = Form Indexed Fi 14-Sep-19 


-EXTRN 


ANALYZ.SRCJRMS21DX.832;1 


ANLRMS$ mt tet tty ts 
as SSF DLIDXSPACE 


ANLRMS$_STATDATARECCOMP 
ANLRMSS$_ rareer cee 


ANLRMS$~BADKE YSEGCOUNT 


Page 
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-EXTRN ppt Se pre Mohd 


I 
SEXTRN ANLRMS$~BADSTREAMEOF 
“EXTRN ANLRMS$~BADVBNF RE 
“EXTRN ANLRMSS$~ oP 


INGBKT 
«EXTRN ANLRMS$_ rereee ne. SPANERROR 
-EXTRN ANLRMS$_TOOMAN 
-EXTRN ANLRMS$_ “UNI RANCRMSS_ VF CTOOSHORT 
-EXTRN ANLRMS$~CACHEFU 
«EXTRN ANLRMS$_ ST | Nem 
-EXTRN ope 


-EXTRN ANLS$GB_MODE> ANLSGC_FAT 
-EXTRN ANLSGW"PROLOG 


-PSECT S$CODES,NOWRT,2 


003c 00000 ENTRY ANL $ 1DX PROLOG, Save R2,R3,R4,R5 > 0652 

55 00006 CF 9€ 00002 MOVAB ORMAT_LINE, R5 : 
54 04 AC 00 00007 MOVL PROLOG. uN > 0655 
52 0C A& DO 00008 MOVL  12(R4)7 SP° + 0664 
40 08 AC €9 OOOO0F BLBC REPORT, 1$ ; 0665 
000000006 8F DD 00013 PUSHL #ANLRMS$_IDXPROLOG + 0666 

0C AC DD 00019 PUSHL INDENT_LEVEL F 

03 DD 0001C PUSHL # ; 

65 03 FB OOOIE CALLS nt f ANL $F ORMAT_LINE 3 
7E D4 00021 CLAL (SP + 0667 

0000G CF 01 FB 00023 CALLS oy pager oo SKIP é 
7E 66 Ag 9A 00028 MOVZBL 1O3¢8 ~($P)- > 0671 

7E 67 A2 9A 0002C MOVZBL 10 (sp): (SP) F 

000000006 8F DD 90030 PUSHL  #ANLRMS$_ IDXPROAREAS F 

53 0c AC 01 C1 00036 ADDL3 #1, INDENT_LEVEL, R3 : 

53 DD 00038 PUSHL RS. : 

7E 04 0003D CLRL SP) : 

65 05 FB 0003F CALLS Pi 9 paler LINE : 
7E 7% A2 3C b0042 MOVZ2WL 116(S : 0675 

000000006 8F dD 00046 PUSHL PANLANSS PROLOGVER : 

53 DD b004¢ PUSHL R3 ; 

7E D4 get CLRL -(SP) 4 

65 04 FB 0005 CALLS #4, ANLSFORMAT_LINE ; 


vo 


RM x RMS21DK = A Thi for Prolog 2 Indexed F 15- 
VoL bb0 RNS Ibe PROCS = Foran? ana’ creck Bn Indexed Fi 12-8 
02 66 ag 91 0033 1$ 
05 1F 0005 
67 A2 95 00059 
OE 12 Boze 


046 AG —E 2 
00000000G 8F DD 00061 
02 FB 00067 
04 0006C 3$: 
Routine Base: S$CODE$S + 0000 


0000G CF 


3 Routine Size: 109 bytes, 


CMP 
5 


Be 47:53:85 YANaL YZ See SensaYoicasos 


102(SP), #2 
103(SP) 
3$ 


4(R4) 
#ANLRMS$_BADAREAROOT 
#2, ANLSFORMAT_ERROR 


a 


nu Oo Ofe 


ee i a ee ee) ae | 
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sp = .b(bsd$l_bufptr] + .b{bsd$l_offset]; 

if .report then ( ; ’ ‘ 3 

anlSformet.{ inetd, , indent. level -enirass., iduares. .sploreste_eresid), 
.b{bsd$l_vbn],.blbsd$l_offset]); 


anl$format_skip(0); 

! Format the area bucket size. 
anl$format_line(0,.indent_level+1,anirms$_idxareabktsz,.spLarea$b_arbktsz]); 
! Format the reclaimed bucket pointer. It's only used for prolog 3. 


WIWWIWWA NALA AIRS PONOPINININIDDNID 2 2 OO Oe 
Dae AE AN HOOD NOUESWN“OORNOUAWR 


if .anl$qw protos eqlu plg$c_ver_3 then 
anT$f 


; 186 b68 ! %sbttl "ANLSAREA_DESCRIPTOR: Check and Format an Area Descriptor’ 
(3 (184 0688 1 ! Functional Description: : 
is 185 0689 1! This routine is responsible for checking the content of an area 
13 138 Beas : } descriptor and optionally printing a formatted report of it. 
is 188 0692 1 ! Formal Parameters: 
3 «189 0695 1! The address of a BSD gener Tetng the area descriptor. 
; 190 0694 1! 5 We update the BSD to describe the next one. 
3 (191 0695 1! area_id Alleged ID of this area. 
| 3 136 0696 1! report A boolean, true if we are to print a report. 
is WW 0697 1! indent_level The indentation level of the report. 
7 194 0696 1! . 
3 (195 0699 1! Implicit Inputs: 
s 1% 0700 1! global data 
: 197 0701 1! 
3; «198 0702 1 ! Implicit Outputs: 
; 199 0705 1! global data 
; 200 0704 1! 
; 201 0705 1 ! Returned Value: 
; $e 0706 1! non 
s Oo707 3: 
; 204 0708 1 ! Side Effects: 
; 205 0709 1! 
; 206 0710 1 !-- 
; 207 0711 #1 
: 208 0712 1 
; stp tae 3 global routine anl$area_descriptor(the_bsd,area_id,report,indent_level): novalue = begin 
; 0715 2 bind 
; 0716 2 b = .the_bsd: bsd; 
; 0717 2 
3 0718 2 local 
3 0719 2 sp: ref block(,bytel, 
3 0720 2 next_id: long; 
; 0721 2 
; 0722 2 ‘ ; 
: 0725 2! Since we know we have 64 bytes in the block, we don't have to check that 
3 0724 2! things actually fit in the block. 3 ; ’ 
: 0725 2 ! So we can start right off and format the report if requested. Begin with 
3 p78 § ! a nice header containing the area id. 
3 072 ; 
; 0 
; 0 3 
: 0 3 
; 0 3 
: 0 3 
; 0 3 
; 0 3 
; 0 3 
; 0 3 
; 0 3 
; 0 3 
; 0 3 
3 0 3 
: 0 3 


PEPIPINPGAPINDPYADNNINININPNINNININNS PY PNNNNnofonorys 


ormat_line(0,.inden€_level+1,anirms$_idxarearect,.splarea$l_avail]); 


RMS21Dx 
_v04-000 


MOPOPMOPPoNoNNofenofonofperofnonofery 
PAPA AAA AISI & 
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NALYZ.SRCIRMS2IDX.B32:1_ 


: Format the info describing how much of the current extent has been 
! used up. 


anl$format_line(0,.indent PtP gered pre pare et pa pg cvbnJ, 
-splarea$T_cnblk],.splarea$l_used],.spLarea$l_nxtvbnJ); 


! Format the info describing the next extent, if present. 


if .splarea$lt_nxt] nequ 0 or .splarea$l_nxblk] nequ 0 then 
anl$format_line(0,.indent_level?1,anirms$_idxareanext, 
-spLarea$l_nxt],.splarea$T_nxblk]); 


: Format the default extend quantity. 
anl$format_Line(0,.indent_level+1,anirms$_idxareaqty,.splarea$w_deq]); 


: If an extent has been allocated but the total allocation is zero, 
: then this file was created before the total allocation field 

: existed. Just put out a comment. Otherwise, we can put out the 
! total area allocation. 


if .splarea$l_cvbn] nequ 0 and .splarea$l_total_alloc] eqlu 0 then 
, anl$format_line(0,.indent_level+1,anlrms$_idxareanoal loc) 
else 
anl$format_line(0,.indent_level+1,anirms$_idxareaalloc,.splarea$l_total_ailoc]); 


78 


MRP PTT nononofenoferopeferefory 


RLSSELEARAVSSS 


horror 
ESES 
Ww 
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' : : 


ANLSAREA_DESCR 


48 


PIMPIPOPONINONONNoNoNoNNoNNPopopofnoponofry 


-Sep-19 NALYZ.SRCJRMS210X.832;1 
: Now we are going to check the contents of the area descriptor. This is 

! a fairly rigorous test, but doesn't check anything that requires looking 

! at other structures. 


PTOR: Check and Format an Area D 


! Start be ensuring that the first two bytes area unused. 


if .spl0,0,16,0] nequ 0 then 
an($format_error(anirms$_badarealst2, .b(bsd$l_vbnJ,.area_id); 


! Make sure the area ID is correct 


if .splarea$b_areaid] negu .area_id then : : 
anl$format_error(anirms$_badareaid, .b(bsd$l_vbn],.splarea$b_areaid],.area_id); 


! Check the area bucket size. 


if .splarea$b_arbktsz] lssu 1 or Se vies eg peggy = | qgre bkt$c_maxbktsiz then ‘ 
anl$format_error(anlrms$_badareabktsize,.blbsd$l_vbnJ,.Splarea$b_arbktsz],.area_id); 


: We ought to check the current extent information at this point, but no 
! one can tell me how it is used. So the code is commented out for now, 
! and a !!!TEMP!!! flag marks the situation. 


‘if .splarea$l_used) gtru .splarea$l_cnblk] or 

! ,splarea$l“cvbnJ+.splarea$l_used] nequ .splarea$l_nxtvbn] then 

5 anl$format_error(anirms$_badareaused, .b[bsd$l_vbnJ); 

! The two items describing the next extent must both be absent or both present. 


if .spfarea$i_nxt] eqlu 0 xor .splarea$l_nxblk] eqlu 0 then 
anl$format_error(anirms$_badareanext,.b{bsd$l_vbnJ,.area_id); 
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! Now we want to advance on to the next area descriptor, if there is one. 
! Begin by reading in the first prolog block. 


blbsd$i_vbn) = 1; 
ani $bucket(b,0); 


woe 


tots 


! Determine the id of the next area, or this area again if it’s the last one. 


sp = .b{bsd$l_bufptr]; 
next_id = minu(.area_id+1,.splplg$b_amaxJ-1); 


OOCOCCOOOOOCOCOCOOOCOOOCO 
Sele 


8 
5 8 
OF 3 
08 10 
% ei) ! Now read in the appropriate block and set the offset. 
11 818 blbsd$i_vbn] =_.splpig$b_avbn] + .next_id / (512/area$c_bin); 
\¢ 814 blbsd$l offset] = .mext_Td mod (512/aréa$c_bln) * area$c_bin; 
1 815 ani $bucket(b,0); 
14 816 
15 81 return; 
16 818 2. « 
1 819 1 end; 
007¢ 00000 «ENTRY ANLSAREA_DESCRIPTOR, Save R2,R3,R4,R5,R6 ; 0713 
56 0000G CF 9E BOERS MOVAB ANLSFORMAT_ERROR, R6 3 
55 00006 CF 9E 0000 MOVAB ANLSFORMAT-LINE, R5 3 
53 04 at DO 0000C¢ MOVL THE_BSD, R 3 0716 
52 oc A 08 A3 C1 00010 ADDL3 8(R3), 12(R3), SP : 0728 
03 0 eon’ 8 00016 BLBS REPORT, 1$ : 0729 
7E 04 A3 7D 00010 1$: MOVOa 4(R3), = (SP) 3; 0731 
7E 02 A2 9A 00021 MOVZBL 2(SP), <(SP) ; 0730 
00000000G 8F dD 00025 PUSHL #ANLRMS$_IDXAREA 3 
10 AC 0D 00028 PUSHL  INDENT_LEVEL 3 
4 OD 4k 43 PUSHL @# 3 
65 06 FB 000 CALLS #6, ANLSFORMAT_LINE ; 
7E D4 00033 CLRL =( : 0732 
0000G CF 1 FB 00035 CALLS #1, ANLSFORMAT_SKIP 3 
7€ 03 A2 9A O003A MOVZBL 3(SP), -(SP ; 0736 
000000006 8F DD 0003E PUSHL . #ANLRMSS$_IDXAREABKTSZ ; 
54 10 ac 9} C1 00044 ADDL #1, INDERT_LEVEL, R4 $ 
4 DD 00049 PUSHL 4 3 
7E D4 00048 CLRL -(SP) 3 
65 04 FB ers CALLS #4, ANLSFORAAT _L INE 3 
03 00006 cf 8} 90930 cn ANLSGU_PROLOG. 4 ; 0740 
08 A2 OD 3003! PUSHL (SP) 3 0741 
000000006 ef = ts une SAM DAGS_JORARE ARES, 3 
E D4 $0062 CLRL -(SP) 3 
5 04 FB b0064 CALLS #4, ANLSFORMAT_LINE ; 
E 14 A2 70 00067 2$: MOVa 20(sP). -(SP) 3 0747 
7E Oc A2 7D p0068 MOVa 12(SP), =(SP) ; 0746 
000000006 BF DD 0006F PUSHL  #ANLRMS$_IDXAREAUSED ; 
4 Dd 00075 PUSHL R4 : 
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ANLSAREA_DESCRIPTOR: Check and Format an Area D 14-Sep-19 
7E 04 
65 07 F 
1c 062 OD 
05 1 
20 =A 
7E 1 A> 70 
000000056 F OD 
4 dD 
D4 
$3 05 FB 
E $6 A2 3 
000000006 8F DD 
4 dD 
E D4 
65 04 F 
Oc A2 D 
14 «#1 
32. A2 D 
OF 12 
00000000G 8F DD 
4 OD 
7E D4 
65 05 FB 
10 #11 
32 A2 dD 000C 
000000006 8F DD 000C 
54 DD 
7E 04 000C 
65 04 FB Reece 
62 85 00001 6$: 
OF 13 00003 
08 AC DD 00005 
04 <A3 DD 00008 
000000006 8F DD 000DB 
66 03 FB OO0E1 
54 08 AC DO QOOES 7$: 
54 02 A2 08 00 Fo Q0O00E8 
12 1 paper 
54 DD OO0F 
7E 02 A2 9A QO0OF2 
04 AS DD OO0F6 
00000000G 8F DD 000F9 
66 04 ee OOFF 
03 A2 9 Bio 8$: 
06 13 0010 
3F 03 A 91 00107 
12 18 00108 
54 DD 0010D 9$: 
7E 03 Ag 9A 0010F 
04 A3 DD 00113 
00000000G 8F DD 00116 
66 o FB Beri 
1 D4 OO11F 108: 
1¢ AS D5 Bat 1 
9 12 00124 
1 D6 00126 


Be 11:52:89 EAnaLr2ssneSans2ibiceses1 


-(SP) 
#7, ANLSFORMAT_LINE 
(SP) 
(SP) 
4 
28(SP), =(SP) 
WANLRMSS_IDKAREANEXT 


=(SP) 

#5, ANLSFORMAT_LINE 
36(SP), =(SP) 
BANLRMSS_ IDKAREAQTY 


(SP) 
#4, ANLSFORMAT_LINE 
12(SP) 


5 
50(SP) 
#ANLRMSS_IDXAREANOALLOC 


-(SP) 

tt ANL $F ORMAT_LINE 
50(SP) 

BANLRASS _ IDNAREAALLOC 
-(SP) 

#4, ANLSFORMAT_LINE 
(SP) 

7$ 

AREA_ID 

4(R3J 
#ANLRMS$_BADAREA1ST2 
#3, ANLSFORMAT_ERROR 
AREA_ID,_R4 
#0, BB, 2(SP), R4 

8$ 

R4 

2(SP), =(SP) 

4(R3) 
MANLRMS$_BADAREAID 
#4, ANLSFORMAT_ERROR 
3( SP) 
3(SP), #63 

10$ 

R4 

3(SP), =(SP) 

4(R3) 
#ANLRMS$_BADAREABKTSIZE 
a, ANLSFORMAT_ERROR 
28(SP) 

11$ 

R1 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Be Se Se Ss Be Se Se Be Se Se Be Se Be Be Se Se Se Se Be Se Se Se Se Se Se Se Be Se Se Se Se Se 


0764 


0765 


0767 


0775 
0776 


0780 


0781 


0785 


0786 


0798 
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50 D4 00128 118 CLRL R 
20 A p 12A TSTL 32(SP) 
120 BNEQ 128 
D 12F INCL R 
50  - 151 12$: ADDL2 Ri, * 
OE 0O€ 1 BLBC RO, 13$ 
4 DD 00137 PUSHL 4 
oof A3 DD 00139 PUSHL 4(R3) 
00000000G 8F DD 001 PUSHL #ANLRMS$_BADAREANEXT 
66 03 4) 14 CALLS #3, ANLSFORMAT_ERROR 
06 =A 9) D 145 13$: MOVL #1, 4(R3) 
§ D4 00149 CLRL 0 = SP) 
53 DD 00148 S R3 
00006 cf 0 FB 14D CALLS Hee ANLSBUCKET 
2 Oc AS D 136 VL 12(R3), 
51 01 AG SE 4 6 VAB ss 1(R4) “al 
50 67 Ag 9A 0015A MOVZBL 103(SP), RO 
50 07 0015 ECL RO 
50 51 D1 001 CMPL R1, RO 
C3 1B 0016 BLEQU 148 
51 50 DO 00165 MOVL RO, R1 
50 51 DO 00168 148: MOVL R1, NEXT_ID 
51 50 08 ¢7 00168 DIVL3 #8, NEXT_ID, R1 
54 66 A2 GA 0016 MOVZBL 102(SP),~R4 
046 Ad 51 54 I He ADDL R4, R1, 4(R3) 
7E 00 50 01 7A 9017 EMUL #1, NEXT_ID, #0, =(SP) 
50 50 8E 08 4} 17D EDIV #8, (SP), RO, R 
08 A3 50 06 7 Boss ASHL #6, RO, 8(R3) 
43 D4 0018 CLRL -(SP) 
53 DD 00189 PUSHL R3 
0000G CF 02 FB 00188 CALLS #2, ANLSBUCKET 
04 00190 RET 


; Routine Size: 401 bytes, Routine Base: S$CODES + 006D 


==” 
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38 H } Rsbttl *ANLSKEY_ DESCRIPTOR = Print and Check a Key Descriptor’ 
1 ; 1 § Functional Description: 
§ 1! his routine is cespens tole for printing and checking the contents 
i ¢ : : of an indexed file key descriptor. 
5 8 $ 1 ! Formal Parameters: 
$ 8 1! the_bsd The address of a BSD describing the key descriptor. 
: 1! We update it to describe the next one. 
8 0 1! key_id The alleged 1D of this Key 
9 08 1! areas Address of a vector of 256 bytes, one per area. 
4 fF Contains the bucket size of each area. Optional. 
1 8 é 1! report A boolean, true if we are to print a report. 
¢ eth ; indent_level The indentation level of the report. 
4 bB3s 1: Implicit Inputs: 
5 2838 1! global data 
08 1! 
37 08 1! Implicit Outputs: 
38 0839 1! global data 
39 0840 1! 
0 0841 1 ! Returned Value: 
1 Bees : True if there is another key descriptor, false if not. 
: 0844 1 | Side Effects: 
4 0845 1! 
5 pee 1 te 
6 0847 1 
#4 0848 1 ; : ’ 
4 st 2 global routine anl$key_descriptor(the_bsd,key_id,areas,report,indent_level) = begin 
50 0851 bind 
51 tit b = .the_bsd: bsd, 
2$ Oee areas_vector = .areas: vector(256,byte]; 
5 0854 
54 0855 own ae 
22 $838 key2_primary_def: vector{6,long] initial <( 
57 0838 uplit byte (Zascic "KEYSV_DUPKEYS"), 
58 085 0, 
59 0860 0, 
0861 o. . : 
Oges yolte byte (Zascic "KEYSV_INITIDX") 
864 , 
oe p30? key2_secondary_def: vector[6,long] initial< 
Obs? uplit byte (Zascic ‘KEYSV_DUPKEYS'), 
? 0868 uplit byte (Zascic ‘KEYSV_CHGKEYS'), 
yi uplit byte (Zascic "KEYSV-NULKEYS"), 
0871 uplit byte (Zascic "KEYSV_INITIDX") 
+f Bu 
0874 key3_primary_def: vector[9. long) initial ( 
0876 uplit byte (Zascic "KEYSV_DUPKEYS"), 


~~ 
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77 0. 
ig uplit byte (Zascic ‘KEYSV_IDX_COMPR"), 
oY gol ie byte (Zascic ‘KEYSV_INITIDX"), 
Be uplit byte (Zascic "KEYSV_KEY_COMPR’), 
ett volit byte (Zascic "KEYSV_REC_COMPR’) 
885 ; 
Os8e key3_secondary_def: vector(8. Long) initial( 
0888 uplit byte (Zascic 'KEYSV_DUPKEYS"), 
889 uplit byte (Zascic "KEYSV_CHGKEYS'), 
0890 uplit byte (Zascic *KEYSV_NULKEYS'), 
0891 uplit byte (Zascic "KEYSV_IDX_COMPR'), 
34 voli byte (Zascic "KEYSV_INITIDX"), 
0894 uplit byte (%ascic "KEYSV_KEY_COMPR®) 
0895 3 
08 
089 local 
0898 sp: ref block(,bytel, 
0899 i: Long, 
0900 position: word, size: byte, 
944 total_size: long, required_record: long; 
090 builtin 
0904 nuliparameter; 
0906 
406 0907 : This Little internal subroutine receives a data type code and returns 
ret 3308 ! the address of an ASCIC string naming the data type. 
409 0910 routine data_type_name(code) = begin 
410 0911 
411 oat own 
olg 091 data_types: vector([8,long] initial ( 
41 0914 uplit byte (Zascic 4 pins BE 
414 0915 ; uplit byte (Zascic ‘signe word’), 
415 0916 uplit byte (Zascic ‘unsigned word de 
416 0917 3 uplit byte (Zascic ‘signed longword’) 
417 0918 uplit byte (Zascic ‘unsigned longword’), 
418 0919 uplit byte (Zascic ‘packed decimal") 
419 09 0 uplit byte (Zascic ‘signed quadword'), 
31 44 2 votre byte (Zascic ‘unsigned quadword’) 
4 09 : 
£58 Be 4 4 return (if .code gtru key$c_max_data then uplit byte (Zascic °???") 
re 925 ; else .data_types(.code]); 
425 0926 end; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


53 59 45 48 50 55 44 SF 56 24 59 45 4B OD Q0000 P.AAA: .ASCIL <13>\KEYSV_DUPKEYS\ 
58 44 49 54 49 GE 49 SF 56 24 59 45 4B OD QOOOE P.AAB: .ASCII <13>\KEYSVLINITIDX\ 
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00000004 


00000000° 
00000000 00000000 
00000000° 
00000004 


00000000° 4 44 


00000000° 
00000007 


00000000 090000 
00000000" 000 


00000000° 


0138 P.AAW ASCII <14>\packed decimal\ 
oote8 P.AAX ASCII <15>\signed quadword\ 
301 28 P.AAY ASCII <17>\unsigned quadword\ 
0016C P.AAZ: ASCII <3>\??7\ 

-PSECT SOWNS,NOEXE,2 
00000 KEY2 “dame? per 
00004 st hate P.AAA 
00008 . 

0014 “ADDRESS S P.AAB 

0018 KEY2_ SECONDARY ot 

$0} - ADDRESS P.AAC, P.AAD, P.AAE 
oF os ADDRESS P.AAF 

0050 KEY3_ PRIMARY DEF 
00034 -ADDRESS P.AAG 
00038 "T 
00040 ADDRESS P.AAH, P.AAL 
dose NG 

4C “ADDRESS P.AAJ, P.AAK 

0054 KEY3 SECONDARY, ot te 
00058 -ADDRESS P.AAL, P.AAM, P.AAN, P.AAO, P.AAP 
0006C LONG 0 


9 
. F 14. -$e9-1984 
Desc 14- whoo 198e 73 3 
OO1C P.AAC: .ASCI 
¢ P.AAD: .ASCI 
P.AAE: .ASCI 
46 P.AAF: .ASCI 
54 P.AAG: .ASCI 
One¢ P.AAH: .ASCI 
00 
Bars P.AAI: .ASCI 
0080 P.AAJ: .ASCI 
OO8F 
0090 P.AAK: .ASCI 
44 
OOAO P.AAL: .ASCI 
OOAE P.AAM: .ASCI 
pppoe P.AAN: .ASCI 
OOCA P.AAO: .ASCI 
00009 
QOODA P.AAP: .ASCI 
QOOOES P.AAQ: .ASCI 
000F7 
OOOF8 P.AAR: .ASCI 
QOOOFF P.AAS: .ASCI 
0010B P.AAT: .ASCI 
00119 P.AAU: .ASCI 
00128 
001 : P.AAV ASCI 
S 
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6 
9 

1 te he =puenevs\ 
15>\KEYS$V~CHGKEYS\ 
135>\KEY$ 
1 
1 
1 
1 


3>\KEYSV_ 
13>\KEYSV=K KE 


<15>\KEYSV_REC_COMPR\ 
<135>\KEYSV_DUPKEYS\ 


<13>\KEYSV_ NULKEYS\ 
<15>\KEYSV_IDX_COMPR\ 


<13>\KEYSV_INITIDX\ 
<15>\KEYSV_KEY_COMPR\ 


<6>\string\ 
<11>\signed word\ 
<13>\unsigned word\ 
<15>\signed longword\ 


< 
< 
< 
< 
< 
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<17>\unsigned longword\ 
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0000000" 00070 -ADDRESS P.AAQ 


00000000* 00000000* 00000000° 00000000° 00000000" 00000000" 00074 DATA_TYPES: 
06000000" 00000000" 0008¢ 


ADDRESS P.AAR, P.AAS, P.AAT, P.AAU, P.AAV, = 


.PSECT 

0000 00000 DATA_TYPE NAME : 
5 04 AC 00 0000 MOVL 
89 5 D1 00006 CMPL 

07 18 9009 BLEGU 

51 0000" CF 9E 0 008 MOV 
06 11 00010 BRS 
51 0000°CF40 DO 90018 1$ MOVL 
50 51 DO 00018 2$ MOVL 
04 0001B RET 


; Routine Size: 28 bytes, Routine Base: SCODES + OIFE 


P.AAW, P.AAX, P.AAY 


SCODES,NOWRT ,2 


Save nothing 
RO, #7 
P.AAZ, R1 


DATA TYPESCROJ, R1 
R1, RO 


Pane 8 
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First thing we need to do is ensure that the key descriptor fits in the 
block. If not, we complain and signal a drastic error. 


= .d{bsd$l_bufptr] + ,blbsd$l_offset]; 

-sptkey$c_Bin geaa -blbsd$l_endptr] then ( 
an $format_error(anirms$_badkeyfit,.b{bsd$l_vbnJ,.key_id); 
signal (anTrms$_unwind) ; 


owe tw 
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Se 
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3 5 ! Now we can format the key descriptor, if requested. 
:) 
9 


742 P 
ANALYZ.SRCIRMS2IDX.B32°1 age 438 


if .report then ( 


! Now the number of key segments. 
anl$format_line(0,.indent_level+1,anlrms$_idxkeysegs,.splkey$b_segments]); 
! Now the null character, if enabled. 


if .spCkey$v_nulkeys] then 
" anl$format | ine(0,. indent_level+1,anirms$_idxkeynul |, .splkey$b_nul char); 


! Now the total key size. 
anl$format_line(0,.indent_level+1,anlrms$_idxkeykeysz,.splkey$b_keysz)); 


; rr | 0939 ! Begin with a heading, containing the key of reference number. 

5 64 94 anl$format_line(3,, indent_le el -anlens$. idkey .spCkey$b_keyref], 

3 44 968 bibsd$l_vbnJ,.blbsd$l_of fsetJ): 

; BA 0948 anl$format_skip(0); 

; rr meee ! Now the next key VBN and offset, if present. 

3 448 0907 if .splkey$l_idxfl] nequ 0 then 

3 449 0948 anl$format_Line(0,.indent_level+1,anirms$_idxkeynext, 

> 450 09 -spCkey$t_idxfl],.splkey$w_noffJ); 

; 451 0950 

3 $2 bees ! Now the area IDs. 

; $28 aah, 3 anl$format_line(0,.indent_level+1,anirms$_idxkeyareas,.splkey$b_ianum],.splkey$b_lanum],.sp(key$b_da 
; $28 4434 ; ! Now the index root level number. 

: rt | yaa34 ; anl$format_Line(0,.indent_level+1,anirms$_idxkeyrootlvl,.splkey$b_rootlev]); 
; re + 3434 H ! Now the bucket sizes. 

: yrs 4 Boe ; anl$format_line(0,.indent_level+1,anirms$_idxkeybktsz,.splkey$b_idxbktsz],.splkey$b_datbktsz]); 
3 464 0963 3 ! Now the root bucket VBN, if present. 

3; 465 0964 3 

3; «6 0965 3 if not .splkey$v_initidx] then ; 

; 467 pee ; anl$format_line(0,.indent_level+1,anirms$_idxkeyrootvbn,.splkey$l_rootvbn]); 
: 469 0968 3 ! Now the flags. 

3; 470 0969 3 : 

3 «471 0970 3 anl$format_flags(.indent_level+1,anirms$_idxkeyflags,.splkey$b_flags], 

: 472 0971 4 (i -anl$qu_protog eqlu pla$c_ver_3 then : 

3 473 0972 4 if .splkey$b_keyref] eqlu 0 then key3_primary_def 

: 474 0973 4 else key3_secondary_def 

; 475 0974 4 else . 

3: 476 0975 4 if .splkey$b_keyref] eqlu 0 then key2_primary_def 

3 477 0976 3 ¥ else key2_secondary_def 

; 3 

: 

3 3 

: 
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! Now the minimum record Length. 
anl$format_Line(0,.indent_level+l,anirms$_idxkeyminrec,.splkey$w_minrecsz]); 

! Now the fill quantities. 
anl$format_Line(0,.indent_level+1,anirms$_idxkeyfill,.splkey$w_idxfill],.splkey$w_datfill]); 


! Now the segment positions and sizes. 


anl$format_line(0;. indent_Level+i,anirms wr 5 hee satin tl 


-splkey$b_size0], -splkey$b_size 

-splkey$b_size2], -splkey$b_size3], 
-splkey$b_size4], -splkey$b_size5], 
-splkey$b_size6], -splkey$b_size7J); 


! Now we need to format the data type of the key segment(s). 
anl$format_line(0,.indent_level+1,anirms$_idxkeyltype,data_type_name(.sp[key$b_datatype])); 


! Now the key name. We use PREPARE_QUOTED_STRING to remove trialing 
! NULS and enclose the name in quotes. 


begin 
local 3 
name _dsc: descri 


tor, 
local_described buf fer(string_but hey$s_heyname2+2); 


build_descriptor(name_dsc, keySs_keynan. spfkeySt_keynan)); 
anl$prepare_quoted_string(name_dsc,string_buf); . 

onl StormatCine(0,. indent_level+laniras _idxkeyname,string_buf); 
end; 


! And finally, the first data bucket VBN, if present. 


if not .splkey$v_initidx] then : 
anl$format_line(0,.indent_level+1,anirms$_idxkeydatavbn,.splkey$t_ldvbn]); 


oe 


g 
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is 7 1035 : Now we are going to check the contents of the key descriptor. This is 
13 8 10 § : a fairly rigorous test, but doesn't check anything that requires Looking 

; io is 5 ! at other structures (except as passed in the areas vector). 

: 4) 1039 ! $tart by ensuring that the three area IDs represent defined areas. 
3 ee ipey ! This check can only be made if the areas vector was passed. 

: 544 104¢ if not nullparameter(3) then 

; 545 104 -areas_vector(.sp key. fenuad eqlu 0 or 

; 546 1044 § -areas_vectorL.splkey$b_lanum]] eqlu 0 or 

> 947 1045 -areas_vectorL.splkey$b_danum]] eqlu 0 peee ; 
Ec 248 See anl$format_error(anlrms$_badkeyareaid,.blbsd$l_vbn],.key_id); 
'; 550 1048 ! Make sure the root level is at least 1. This check cannot be made 

3 22) 1908 ! if the index is uninitialized. 

; 288 1051 2 if not .splkey$v_initidx] and set keySb_root lev eqlu 0 then , 

3 22¢ 126 2 anl$format_error(anlrms$_badkeyrootlevel,.blbsd$l_vbn],.key_id); 

; 226 Wee : ! The following two checks can only be made if the areas vector was passed. 

: $28 Hr H if not nullparameter(3) then ( 

: 560 1058 3 ! The index bucket size must be correct, and the two index area IDs 

; 20) 1933 ; ! must have the same bucket size. 

; 265 1061 3 if .spCkey$b_idxbktsz] nequ .areas_vector “Spt hey2).januna}, or 

; 564 1062 3 -splkey$b_idxbktsz] nequ .areas_vectorl.sp heyes Lanum)) then 

3 384 13S? ; anl$format_error(anlrms$_badkeyidxbkt,.bLbsd$l_vbnJ,.key_id); 

; 367 1065 3 ! The data bucket size must be correct. 

: 569 1067 3 if .splkey$b_datbktsz] nequ .areas_vectorl[.s Chey. danun)3 then — 

3 370 1068 3 anl$format_error(anlrms$_badkeydatabkt,.b(bSd$l_vbn], .key_id); 

: 3h) 1070 3 

; 323 1071 é ! Check the key flags. 

; 575 1073 2 anl$check_flags(.bCbsd$L vbnJ..spLkey$b_ flags], 

; 576 1074 3 (if -anl$qu_prolog eqlu plg$c_ver_3 then ; 

s Ser 1075 3 if .splkey$b_keyref] eqlu 0 then key3_primary_def 

3 278 1076 ; : else key35_secondary_def 

3 else 

; 580 1078 ; if .splkey$b_keyref] eqlu 0 then key2_primary_def 

; 581 1079 else key2_secondary_def 
Be i 

: 44 1086 § ! Check the data type of the key. 

: 586 1084 2 if .splkey$b_datatype] gtru key$c_max_data then : 
: aH H's $4 § anl$Tormat_error(anirms$_Badkéydatatype,.bl(bsd$l_vbn],.splkey$b_datatype], .key_id); 
: 44 HH ! Check the number of key segments. 

; 591 1089 if .splkey$b_segments] eqlu 0 or : 

; 236 1090 -splkey$b_segments] gtru (if .splkey$b_datatype] eqlu key$c_string then 8 else 1) then 
is; 1091 2 an $Tormat_error(anlrms$_badkeysegcount, .b(bsd$l_vbn],sp[key$b_segments],.key_id); 
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! Now we are going to check the key segment information. 3 
: and calculate the total key length and the Length of a record required 


! to hold the key. 


begin 
bind 


position vector = splkey$w 


size_vector = sp[key$b_si 


total_size = required_record = 0 
incru i from 0 to 7 do ( 


ze0J: vector(8,bytel; 


if .i lssu .splkey$b_segments] then (— , 
total_size = .total_size + .size_vector(l.il]; 


required_record = maxu(.required_record,..position_vectorl.i]+.size_vectorl.i]); 


) else 
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ANALYZ.SRCIRMS21DX.832; 1 


We sit in a loop 


osition0O]: vector(8,word], 


if .position_vectorl.i] nequ 0 or .size_vectorl.i] nequ 0 then 
anl$format_error(anirms$_badkeySegvec,.b(bsd$l_vbnJ,.key_id); 


); 
end; 


: Now make sure that the calculated information agrees with the information 


! in the descriptor. 


if .splkey$b_keysz] nequ .total_size or 
-splkey$w_minrecsz] nequ .required_record then “ 
anl$format_error(anirms$_badkéysummary,.bCbsd$l_vbnJ,.key_id); 


! Check the key of reference ID. 


if .splkey$b_keyref] nequ .key_id then : : 
anl$format_error(anlrms$_badkeyrefid,.b(bsd$l_vbnJ,.key_id); 


! Check the index and data fill quantities. 
if .splkey$w_idxfill] gtru .splkey$b_idxbktsz]*512 or 


-splkey$w_datfiil] gtru .splkey$b datbktszJ*512 th 


an $format_error(anirms$ 


adkeyfill,.blbsd$l_vbnJ 


en 
--key_id); 


Peer of} 
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ANL get ESCRIPTOR - Print and Check a Key Desc 12-80 8- 1986 ij £33385 ANALYZ.SRCIJRMS21DX.832;1 age 138 
11 § } pd we eb Fag A to move along to the next key descriptor, if there is 

1 Me - let’s just quit. 

1135 if aah idxfl] eqlu 0 then 

1% $ return false; 

1" ; ! Update the BSD and get the next key descriptor. 

1140 blbsd$l_vbn] = -splke Sl_idxft); 

1141 b bsd$L mie ty = “sptkey$u., not?); 

11$¢ anl$bucket(b,0 

114 

1144 return true; 

11465 

1146 1 end; 


OFFC 00000 .ENTRY ANLSKEY DESCRIPTOR, Save R2,R3,R4,R5.R6,R7.-; 0849 
5B 00006 CF 9E 00002 MOVAB ANLSFORMAT LINE, R11 : 
5E AC AE 9E 00007 MOVAB -84(SP), SP : 
55 04 AC 00 00008 MOVL THE_BSD, RS : 0852 
53 OC AC DO OOOOF MOVL AREAS, R3 : 0853 
52 oc AS 08 AS C1 00013 ADDL3 8 (R5), 12(R5), SP ; 0930 
51 60 A2 9E 00019 MOVAB 96(R25, R1 : 0931 
10 AS 51 D1 0001D CMPL R1, 16(R5) : 
1€ 1F 00021 BLSSU.‘1$ : 
08 AC DD 00023 PUSHL KEY_ID : 0932 
04 AS DD 00026 PUSHL  4(RS5) : 
000000006 8F DD 00029 PUSHL #ANLRMSS BADKEYF IT : 
0000G CF 03 FB 0002F CALLS #3, ANLSFORMAT_ERROR : 
00000000G 8F DD 00034 PUSHL HANLAMSS UNWINB 3 0933 
00000000G 00 01 FB OO03A CALLS LIBSSIGNAL 3 
03 10 AC 8 00041 1$: BLBS aebonte 2$ : 0937 
01E6 31 00045 BRW 10$ : 
7E 04 AS 7D 00048 2$: MOVQ 4(R5), =(SP) > 0942 
7E 15 A2 9A 0004C MOVZBL 21(SP), -(SP) > 0941 
000000006 8F DD 00050 PUSHL HANLRMSS IDXKEY : 
14 AC DD 00056 PUSHL INDENT LEVEL 3 
03 DD 00059 PUSHL : 
68 06 FB 0005B CALLS % ANL SFORMAT_LINE : 
7E D4 0005E CLRL. 0—_ = ( §P) : 0943 
00006 CF 01 FB 00060 CALLS #1, ANLSFORMAT_SKIP : 
62 b 00065 TSTL (SP) : 0947 
16 13 00067 BEQL 3 : 
7E 04 Ag 3C 00069 MOV2WL 4(SP), -(SP) > 0949 
62 DD 0006D PUSHL (SP) : 
000000006 8F DD 0006F PUSH HANLRMSS IDXKEYNEXT > 0948 
7E 14 AC 01 C1 00075 ADDL INDERNT_LEVEL, (SP) : 
Ze D4 0007A CLRL = ) : 
68 05 #8 0007C CALLS #5 ANL SF ORMAT _LINE : 
7E 08 ag 9A OOO7F 3S: MOVZBL (SP (§P) ; 0953 
7E 07 A2 9A 00083 MOVZBL (sp): ~(3p} : 
7E 06 A2 9A 00087 MOVZBL 6(SP). =(SP) : 
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000000006 
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000000006 
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7$: 
8$: 


9$: 


Be 97:52:89 


CALLS 
MOVZWL 


AXe11 Bl iss -32 V4.0-742 
ANALYZ. srci RMS21DX.832;1 


WANLRMSS_ IDXKEYAREAS 
me INDENT LEVEL, R4 
a FANLSFORMAT aL INE 
puts TDAKEYROOTLVL 


= (SP) 

ANLSFORMAT LINE 
TTise =($P) 
10(SP 

10S): = LoKEVeKTS2 
(SP) 

#5. ANLSFORMAT LINE 
“i. 16 SP), 4$” 

12(SP) 

FANLRMSS, IDXKEYROOTVBN 
-(SP) 

#4, ANLSFORMAT -L INE 
ANL$GW_PROLOG, ~# 

1(SP) 
KEY3_PRIMARY_DEF, RO 
KEY3_SECONDARY_DEF, RO 
1(SP) 
KEY2_PRIMARY_DEF, RO 
KEV2_ SECONDARY_DEF, RO 


16(SP), =(SP 
#ANLRMSS_ LDXKEYFLAGS 


+e pete ty ie FLAGS 
HANCRRSS_ IDXKEYSEGS 


=(SP) 
#4, eth wate! LINE 
#2, m » 
19(SP P) 
HANCRRSS_ IDXKEYNULL 


~(SP) 
a4, ANL SF ORMAT LINE 
20(SP), =(SP 
HANLRMES _ IDXKEYKEYSZ 


-(SP) 
a ANL $F ORMAT LINE 
22(SP), =-(SP) ~ 


roe 3 
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04 

4C 
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FANLRMSS_ IDXKEYMINREC 
-(SP) 

#4, ANLSFORMAT_LINE 
6(SP), =(SP) 


4(SP), =(SP) 
PANLRMSS_ [DXKEVF ILL 


P) 
ANL SF ORMAT LINE 


- =( 


=( 
a5 
4 


SP). =(SP) 
#ANLRMS$_IDXKEYPOSS 


-(SP) 
#12, ANLSFORMAT_LINE 
51(§P), (SP) 
50(SP). =(SP) 
49(SP). 
SP). =(SP) 
SP). 

SP), 

SP), 

SP); =(SP) 
LRMS$_IDXKEYSIZES 


SP) 
#12, ANLSFORMAT_LINE 
17(SP), =(SP) 

#1, DATA_TYPE_NAME 


WANLRMSS_ IDXKEY1 TYPE 


(DR Loerese 
af POlrune~vo 
2 nee 


(SP) 
#4, ANLSFORMAT_LINE 

#66, STRING BU 

STRING BUF+8, STRING_BUF +4 
#32, NAME DSC 

52(R2), NAME _DSC+4 


NAME _DSC 

#2, ANLSPREPARE_QUOTED_STRING 
#ANLRMSS_ IDXKEYNAME 

=(SP) 

#4, ANL SEORMAT LINE 


#4, 16(SP), 10 
84(SP) 
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16 


08 


50 
50 


50 


0000G CF 
10 = A2 


0000G CF 


0000G CF 
03 


58 


for Prolog 2 Indexed F 1 
t and Check a Key Desc 1 
00000000G 8F ODD 1 
4 00d 7 
E D4 
04 FB 8 
C 91 00 4 
oc AL 5 00985 
ae 48 
06 AZ 9A 00 
604 23 0235C 
12 13 0025F 
07 A 38 : 41 
604 ; 45 
09 1 : 48 
08 A2 QA GA 
6045 95 0024E 
11. 12 8 51 
08 ag DD 00253 
04 AS DD 00 26 
000000006 8F DD 0025 
03 FB 0025F 
04 34 00264 
09 A2 95 00269 
11. 12 0026C 
08 AC ODD 0026E 
04 AS DD 00271 
000000006 8F DD 00274 
03 FB O0027A 
6C 91 0027F 
48 1F 00282 
OC AC 05 00284 
43 13 00287 
06 A2 9A 00289 
OA A2 91 0028D 
0B 12 ih 953 
07 A2 9A 00294 
OA A2 91 00298 
11 13 0029D 
08 AC ODD 34 
04 AS dD 00 Fr 
00000000G 8F DD BOS 
03 FB 002AB 
08 A2 9A 00280 
0B A2 91 bo58e 
11. 13 00289 
08 AC OD po5ee 
04 AS DD O02BE 
000000006 8F DD 002C1 
03 FB 002C7 
0000G CF 861 + cc 
14 12 00201 
15 as 9A 00 D3 
07 12 002d 
0000° CF 9E 00209 
19 11 002d 
0000" CF 9E OOZE 
12 11 O002E 


bo 


10 
-Sep-19 
-Sep-19 


10$: 


118: 


12$: 
13$: 
148: 
15$: 


16$: 


17$: 
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ANAL YZ. SRC }RmS210%.83251 


_ RTI 


#ANLRMS$_BADKEYAREAID 
+g ANLSFORMAT_ERROR 


16(SP), 1 
9(§P) 
13$ 
KEY_ID 


4(R5) 
#ANLRMS$_BADKEYROOTLEVEL 
#3, os ERROR 


RO 
ps,* (RO)CR3] 


“vu es 
vu~ 


ms, ReROD ER3I 


— 
J 


LRMS$_BADKEYIDXBKT 
pitt SE CARAT -ERROR 


RO 
a (RO)CR3) 


ay ere | AMNOAmLO-AWwO}P 
he. 2 oS eae per eee eet 
aS 2 ; 


eK OBSL KO Os OS 


PANLRMSS BADKEYDATABKT 
#3, ANLSFORMAT_ERROR 
ANE SGM PROLOG, “#3 
Vis), R8 
KEY3_PRIMARY_DEF, RO 


EE YS_SECONDARY DEF. RO 
20% 
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58 15 a2 9a 00267 18%: MOVZBL 21 (SP). RB : 1078 
07 1 E BNEQ 9$ : 
50 0000° cf of i Rov KEY2_PRIMARY_DEF, RO ; 
50 0000° cf 9E O02F4 198 MOVAB KEY2_SECONDARY_DEF, RO : 
D O02F9 208 PUSHL R : 
7E 10 Ag A 00 re movZ lecsP), -(SP) t 1073 
56 06 aS dO 9 F MOVL  4(R5), R6 : 
00006 CF a8 PB 0 83 CALLS a ANL SCHECK_FLAGS ; 
07 11 A2 Hi O30A CPB yrisP), | BP : 1084 
08 aC DD 0031 PUSHL Key 1 : 1085 
7€ 11 ae . 33] op hg peter -(SP) : 
000000006 8F dD $9 19 PUSHL #ANLRMS$_BADKEYDATATYPE : 
00006 CF 04 FB O003IF CALLS 4&4, ANLSFORMAT ERROR : 
gf 12 A 9A 3 s 218 HOV ZBL 18{SP), R ; 1089 
1,=OA ye 032A TST 7(SP) + 1090 
0 12 00320 BNEQ 2$ : 
fe Sh a i : 
50 o4 DO 00334 28 MOVL #1, RO : 
* Hy fa goa Sg ? 
08 AC bb 0033¢ 248 PUSHL Y_ID + 1091 
7E 56 7D 0033F MOva , = (SP) : 
000000006 8F DD 00342 PUSHL #ANLRMS$ BADKEYSEGCOUNT : 
0000G CF 04 FB 0034 CALLS #4, ANLSFORMAT_ERROR : 
59 D4 00540 25$ CLRL  TOTAL_SIZE ; 1102 
53 ee 0034F cLRo)Od : 110 
. i Sy oF Bug 2H Hash Tage HBS 
27 ‘1€ 00358 BGEGU bbs : 
51 2C A243 9A 0035A MOVZBL 44(SP)CIJ, R1 + 1106 
59 51 cO 0035 ADDL2 1, TOTAL.SIZE F 
1€ A240 9F 00362 SHAB 28(SP)CROT : 1107 
51 9 3C tre MOVZWL a(SP)+, R1 3 
Sh 2c 2G HK OO8eS | ROMERL 4USPIELD. aro 3 
30 5. bo 00 “i ov REQUIRED _RECORD, RO : 
g 1 00 77 BGEQU 8 ; 
50 3 D0 00379 MOVL 1, RO ; 
54 30 b0 00 As 27%: MOVE RO, REQUIRED_RECORD Daan 
1C Azad oF 5 81 28%:  PUSHAB 28(SP)CRO) : 1110 
9 i 83 TSTw a(SP)+ : 
0 8 BNEQ 2 ; 
2C A243 9 9 TSTB = 44 (SP) CI) ; 
10 1 8D BEQL 30% ; 
08 aC dD 00 a 298:  PUSHL KEY_ID : 1111 
56 DD 00392 PUSHL R 3 
coos cr °70000006 HE Pe AERge Eur SSSt Enc brBans ERGO 7 
score j D6 0039F 308: a A. " > 1103 


~oOo 


rb 


59 
54 


51 


51 


; Routine Size: 


seu 


14 
16 


‘a 


= An 
DESC 


A2 
A2 


51 
A2 


hi 
RibigR = Prin 


00006 
08 


00006 


00006 


04 
08 


00006 


Routine Base: 


07 
08 
10 


08 
000000006 


08 


000000006 


OA 


08 


; 000000006 
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31$: 


32$: 


33$: 


34$: 


35$: 


36$: 
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31$ 


KEY_ID 

#ANLRMSS$_BADKE YSUMMARY 
#3, ANLSFORMAT_ERROR 

R8, KEY 

KEY_ID 

R6 

#ANLRMSS$_BADKE YREF ID 
#3, ANLSFORMAT_ERROR 


19isP). R1 

, RI. RI 

#0. #16, 26(SP), R1 

34$ 

11(SP), RI 

on a6 26(SP), R1 

338 

KEY_ID 

R6 

#ANLRMS$_BADKEYF ILL 

#3, ANLSFORMAT_ERROR 
(SP) 
36$ 

(SP), 4(R5) 

4(SP), 8(R5) 


-(SP 


RS 
#2, ANLSBUCKET 
#1, RO 


RO 


a7 
de 
8 #8, 20(SP), TOTAL_SIZE 
#16, 22(SP), REQUIRED RECORD 


3 

_ 
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& Isbttl *ANLS2BUCKET_HEADER = Print and Check a Bucket Header’ 
§ i Functional Description: 
0 : This routine is responsible for printing and checking the contents 
1 } of the bucket header in prolog 2 indexed file buckets. 
§ i Formal Parameters: 
4 ‘ The address of a BSD wom iy ha the complete bucket. 
5 : We update it to the next bucket. 
$ : area_id The alleged ID of the area containing this bucket. 
leveT The alleged level of this bucket. 
8 : report A boolean, true if we are to print a report. 
4 } indent_level The indentation level of the report. 
1 i Implicit Inputs: 
¢ } global data 
i Implicit Outputs: 
global data 
i Returned Value: 
True if there is another bucket in this chain, false otherwise. 
! 


i Side Effects: 


global routine anl$2bucket_header(the_bsd,area_id,level,report,indent_level) = begin 


bind 
b = .the_bsd: bsd; 


° 
x 
3 


control_flags_def: block 5. Long) initial( 


uplit byte (Zascic "BKTS$V_LASTBKT"), 
volit byte (Zascic "BKT$V_ROOTBKT") 


local 

sp: ref block(,byte); 
! We know the bucket header fits in the bucket. 
! Now we can format the header if requested. 


sp = .b(bsd$l_bufptr] + .b{bsd$l_offset); 
if .report then ( 


SRLS SSCS SR SS TS SSVSSRGN occa NOUSUnoO oe ws 


! Start with a nice header, containing the VBN. 


anl$format_lLine(3,.indent_level anirms$_bkt,.blbsd$l_vbn]); 
anl$format~skip(0); 


a ee ee ed od 


AAWWNAWNAAIAIPIIINININIMPGPDNININININININININININININYA 3 tt a at at ot ot tt 


oooo 


' Format the check character. 


om x DX = Anal Things for Prolog 2 Indexed F be 1984 AX-11 Bliss<-32 V4.0-7462 Pp 3 
ied tts WA RODUCKER MERGER = Piing ong Chotkne Berke sen-1984 HH CMe Corr ta et rete age 493 


8 ant $format_line(0,.indent_level+1,anirms$_bktcheck,.sp(bkt$b_checkchar]); 

ab 5 ! Format the area number. 

at ; 09 anl$format_line(0,.indent_level+1,anirms$_bktarea,.sp[bkt$b_areano]); 

ay ; 1 ! Now the VBN address sample. 

a9 1 8 anl$format_Line(0,.indent_level+1,anirms$_bktsample,.splbkt$w_adrsample)); 

78 13 ! Now the free space offset. 

f 1 : " anl$format_Line(0,.indent_level+1,anirms$_bktfree,.splbkt$w_freespace]); 

g 5 ; 1} ! Now the available record ID range. 

725 1 $f anl$format_Line(0,.indent_level+1,anirms$_bktrecid,.spC(bkt$b_nxtrecid],.splbkt$b_lstrecid]); 
59 1558 ! Now the next bucket VBN. 

55 1558 anl$format_line(0,.indent_level+l,anirms$_bktnext,.spCbkt$l_nxtbkt]); 

730 1397 ! Now the level number. 

a3 1559 anl$format_Line(0,.indent_level+1,anirms$_bktlevel,.sp(bkt$b_levelJ]); 

ree 153) : ! And finally, the flags. 

13 1338 3 - anl$format_flags(.indent_level+1,aniems$_bktflags,.sp(bkt$b_bktcb],control_flags_def):; 
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3 760 1235 ! Now we are going the check the contents of the bucket header. This is a 
(3 «761 1 $ : fairly rigorous test, but doesn’t check anything that requires looking 
; i ; ! at other structures. 
3 me \ 33 ! Make sure the check byte is present in the Last byte of the bucket. 
. 246 1241 if .splbkt$b_checkchar] nequ ch$rchar(.blbsd$l endptrJ-1) then 

3 SE 4 : ¢g anl$format_error(anirms$_badbktcheck,.6{bsd$l_vbnJ); 
$749 12464 2 ! Check the area ID. 

; 750 1245 

3 a} 1 m4) if .sp{bkt$b_areano] nequ .area_id then : 

; P26 : rtf an $format_error(anirms$_badbktareaid,.b{bsd$l_vbnJ); 

; 734 49 ! Check the bucket address sample. 

; 756 1251 2 if .splbkt$w_adrsample] nequ (.b{bsd$l_vbn] and %x"O000ffff") then 

; et ' 26 an $format_error(anirms$_badbktsample,.bCbsd$l_vbnJ); 

; 44 : 30 ! Check that the next available byte is within reasonable Limits. 

; 761 1256 if .sp oe tou. frevspace? issu bkt$c_overhdsz or 

: roe 1257 -splbkt$w_freespace gtru -b(bsd$w_sizej*512-1 then 

3 re; 1$28 anl$format_errorCanirms$_badbkt free, .b{bsd$l_vbnJ); 

5 765 1360 ! Check the Level number. 

> 766 1261 

: 767 1566 if .sp{bkt$b_level] nequ .level then 

3 ro8 156? anl$format_error(anirms$_badbktlevel,.b{bsd$l_vbnJ); 

; 270 1265 ! Check the byte of control flags. 

; ae 1367 3 anl$check_flags(.b(bsd$l_vbnJ],.splbkt$b_bktcb],control_flags_def); 

: 77% P 1569 statistics_callback( 

3: 775 P 1270 2 ‘ ee 

; 776 P1271 2 : If we are accumulating statistics, then we have to call the 
3 777 P 1676 2 ' bucket callback routine, telling it the level, bucket size, 
; 778 P 127 § ! and fill amount. 

3; 779 P 1274 

; 780 P 1275 § anl$bucket_caliback(.s Cok ese, Lovet, 

; «781 P 1276 b[ bsd$w_sizel, 

3: 782 P 1277 2 -splbkt$w_freespace] + 1); 

; «4783 1278 2); 


BUCKET _HE 


! BSD to describe the next one. 


— 


785 1279 
bo 
8 


1 if not “pera rov Lagtenes Fen ( 
789 1 blbsd$l_vbnj = .splbkt$l_nxtbkt); 
790 1 an $bucket(b,0); 
791 1285 return true; 
198 ca 5) OP tun fot 

return false; 

796 1 M4 
795 1289 1 end; 


54 4B 42 54 53 41 4C SF 56 26 54 4B 4 
54 4B 42 54 4F 4F 52 SF 56 24 54 4B 4 
00000001 
00000000" 00000000" 00098 
007C 00000 
56 0000G CF 9€ 00002 
55 0000G CF 9E€ 00007 
53 04 . DO 0000C 
52 OC AS Bt AS C1 00010 
03 0 ac gS 00016 
-  QOAB 31 OOOTA 
04 AS DD 00010 
000000006 8F DD Bese 
14 AC DD 828 6 
03 od 00 4 
65 04 FB 00028 
7E 04 B50 $5 
0000G CF 01 FB 00030 
E 62 9A 00035 
00000000G 8F 0 00038 
54 14 =AC 01 C1 $44 
54 DD 000 
7E 04 00045 
65 04 FB Baek 
7€ Q1 A2 9A QOO4A 
000000006 gf DD 0004E 
4 DD 00054 
7E 04 00056 
65 04 FB 00058 
7E 02. A2 3C 00058 
00000000G 8F DD 0005F 
54 DD 00065 
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: If this is not the Last bucket in this chain, then let's update the 
Otherwise forget it. 


OD 00170 P.ABA: 
OD OO17E P.ABB: 


18: 


Be 17:33:89 


Fant Bliss-32 v4.0-742 
ANALYZ.SRCIRMS21DX.8352;1 


»PSECT 


ASCII 
ASCII 


-PSECT 


SPLITS,NOWRT ,NOEXE ,2 


<13>\BKT$V_LASTBKT\ 
<13>\BKTS$V~ROOTBKT\ 


SOWNS ,NOEXE ,2 


00094 CONTROL_FLAGS_DEF : 
ONG” 1 


el 
«ADDRESS P.ABA, P.ABS 


-PSECT $CODE$,NOWRT,2 
-ENTRY ANL$2BUCKET_HEADER, Save R2,R3,R4,R5,R6 
MOVAB ANLSFORMAT_ERROR, R6 
MOVAB ANLSFORMAT“LINE, R5 
MOVL. THE BSD, R 

ADDL3 8(R3), 12(R3), SP 
BLBS REPORT, 1$ 
BRW 

PUSHL  4(R3) 

PUSHL #ANLRMS$_BKT 

PUSHL INDENT_LEVEL 

PUSHL @# 

CALLS a ANL$FORMAT_LINE 
CALLS #1, ANL$FORMAT_SKIP 
MOVZBL (SP), -(SP 

PUSHL M#ANLAMS$_BKTCHECK 
ADDLS #1, INDENT_LEVEL, R4 
PUSHL R4 

CLRL. = = (SP) 

ALLS #4, ANLSFORMAT_LINE 
MOVZBL 1(SP), -(SP) 

USHL #ANLRMS$_BKTAREA 
PUSHL R4 

CLRL. = (SP) 

CALLS #4, ANLSFORMAT_LINE 
MOV2WL 2(SP), -(SP) 


HANLRASS._BKTSAMPLE 


Page 43) 


; 1175 


aad 
-— 
2e3 

woo 


1200 


1201 
1205 


1209 


1213 


c- 
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Yous000 AN SSBUCKET MERDER © Pring ond Photh a Beckee He WeeteeelObe Tiseases | FAMATT Obisga32 vs 05762 Page 43 
7E D4 00067 LRL. = (SP) : 
$e 4 Ad 5e Ooee MOTEL SCSPD Ne etePy TINE $1217 
000000006 F DD 096 PUSHL #ANLRMS$_BKTFREE : 
4 Dd 0076 PUSHL 4 : 
E D4 0007 CLRL = =( SP) : 
65 04 FB QOO7A CALLS #4, ANLSFORMAT_LINE ; 
| 7E 07 A2 9A 99070 MOVZBL 7($P), =(SP) t 1221 
7E 06 A2 9A 00081 MOVZBL 6(SP), =(SP) : 
| 000000006 8F DD 90085 PUSHL  #ANLRMS$_BKTRECID : 
34 DD 00088 PUSHL R4 : 
D4 Benge CLRL -(SP) : 
65 0 FB QOO8F CALLS #5, ANLSFORMAT_LINE 3 
08 A2 DD 90092 PUSHL 8(§P) : 1225 
000000006 8F DD 0009 PUSHL  #ANLRMS$_BKTNEXT : 
| 54 DD 00098 PUSHL RG : 
7E D4 0009D CLRL.  =(SP) + : 
65 046 FB 0009F CALLS #4, ANLSFORMAT_LINE 3 
7é OC A2 9A OO0A2 MOVZBL 12(SP), =(SP) > 1229 
000000006 8F DD 000A6 PUSHL #ANLRMS$_BKTLEVEL ; 
54 DD OOOAC PUSHL 4 : 
7E D4 OOOAE CLRL. = (SP) : 
65 04 FB 00080 CALLS #4, ANLSFORMAT_LINE ; 
0000" CF 9F 00083 PUSHAB CONTROL_FLAGS_DEF 3 1233 
| 7E OD A2 9A 00087 MOVZBL 13(SP), -(SP) s 
000000006 8F DD 000BB PUSHL #ANLRMS$_BKTFLAGS ; 
54 DD 000C1 PUSHL RG é 
0000G CF 04 FB 000C3 CALLS #4, ANLSFORMAT_FLAGS 3 
50 10 A3 DO 000C8 2s: MOVL  16(R3), : 1241 
| FF AO 62 91 O00CC CMPB = (SP), -1(RO) : 
0¢ 13 00000 a  3$ ; 
04 A3 DD 000D2 USHL 4(R3) > 1242 
000000006 8F DD 00005 PUSHL  #ANLRMS$_BADBKTCHECK ; 
66 02 FB 00008 CALLS #2, ANLS$FORMAT_ERROR : 
08 AC 01 A2 08 00 ED OOODE 3$: CMP7V #0, #8, 1(SP),~AREA_ID : 1246 
OC 13 OO0ES BEQL «= «4$ . ; 
04 AS DD 000E7 PUSHL  4(R3) > 1247 
00000000G 8F DD OQOOEA PUSHL #ANLRMS$_BADBKTAREAID Ps 
6 0g FB OOOFO CALLS #2, ANLSFORMAT_ERROR : 
54 04 AS DO OOOFS 4$: MOVL 4(R3), R4 3: 1251 
54 02 A2 B1 000F7 CMPW = 2( SP). R4 : 
0B 13 OO00FB BEQL «sS$ ; 
54 DD OOOFD PUSHL RG : 1252 
00000000G 8F DD OOOFF PUSHL #ANLRMS$_BADBKTSAMPLE : 
66 0S FB 00105 CALLS #2, ANL$FORMAT_ERROR F 
OE 04 A2 B1 00108 S$: CMPW 84 (SP), #14 : 1256 
| 12 1F 0010C BLSSU 6 ; 
50 02 As 3¢ 00105 MOVZWL 2(R3), RO > 1257 
| 50 50 09 73 00112 ASHL #9, RO, RO ; 
| 50 06 a2 10 00 ED 00118 CMPIV #0, #16, 4(SP), RO 
0B 1B OO11E BLEQU = 7$ ; 
54 DD 00120 6$: PUSHL 4 : 1258 
000000006 8F DD 00122 PUSHL M#ANLRMS$_BADBKTFREE ; 
66 02 FB 00128 CALLS #2, ANLSFORMAT_ERROR : 
oc aC Oc a2 08 00 ED 00128 7$: CMP2v #0, #8, 12(SP)> LEVEL : 1262 
0B 13 00132 BEQL «=s«&$ ; 
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4 DD 001 PUSHL R64 3 1263 

000000006 er DD 001 PUSH #ANLRMS$_BADBKTLEVEL 3 

2 FB 0013C CALL 2, ANLSFORMAT_ERROR : 
0000" CF 9F OO13F 8S PUSHAB C¢ TROL FLAGS. DEF i 1267 

7 OD A2 9A 143 MOVZBL 13(SP),~=(SP) : 

54 DD 0014 PUSHL R : 

0000G CF 03 FB 00149 CALLS #3, ANLSCHECK_FLAGS : 
02 0000G CF 91 Bat CMPB ANL$GB MODE, #2 : 1278 

07 13 0015 BEQL 9$ é 

04 0000G CF 91 Bote CMPB ANLSGB_MODE, #4 : 

13 12 O13A BNEQ 10$ 3 

7E 04 A2 3C 001 c 9$ MOVZWL 4(SP), =(SP) : 

of bé 016 INCL (SP) : 

7E 02 =A C 00162 MOVZWL 2(R3), =(SP) : 

7E OC Ae 9A 00166 MOVZBL 12(SPS, =(SP) : 

00006 CF 03 FB O016A CALLS #3, ANLSBUCKET_CALLBACK : 
12 OD ag E8 OO16F 108 BLBS 13(SP), 11$ : 1282 
06 «A3 08 A2 DO 00173 OVL 8(SP), 4(R3) 3 1283 
ze D4 00178 CLRL -(SP) 3 1284 

53 DD 0017A PUSHL R3 3 

0000G CF 02 FB O0017C CALLS #2, ANLSBUCKET 3 
50 01 DO 00181 MOVL #1, RO 3 1287 

04 00184 RET 3 

50 D4 00185 11$ CLRL RO 3 
04 00187 RET : 1289 


; Routine Size: 392 bytes, Routine Base: $CODE$S + 0643 


Be Be Se Be Oe Be Oe Oe Oe Be Be Be Be Se Be Be Se Se Ge Se Se Se Ge Ge Ge Se Ge Se oe FH Fs Ge Se Se Se oe Se Be Se Se Se Se Se Se Se Se Se Ge OSs oe Se Se Se Oe ee 
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v04= INDEX_RECORD = Pr & Check an Index Reco 14-Sep-1984 ANALYZ.SRCJRMS210X.832;1 (16) 
Leds ! 39 } Rsbttl *ANLS2INDEX_RECORD = Print & Check an Index Record’ 
799 1 4 1 | Functional Description: 
800 1295 1! his routine is responsible for printing and checking the contents 
801 1294 1! of a prolog 2 index record. An index record is the structure present 
eS : 95 : } in the indices of an indexed file. 
804 1 39 1 | Formal Parameters: 
805 1298 1! i Address of BSD describing the index record. 
806 9.44 1! key_bsd Address of BSD describing key descriptor for index. 
807 1300 1! report A boolean, true if we are to print the record. 
oes 138) ! } indent_level Indentation level for the report. 
810 1308 1 i Implicit Inputs: 
ae LP : } global data 
815 1306 1! Implicit Outputs: 
sie 1302 ; } global data 
816 1309 1 | Returned value: : 
att 1319 : rue if there is another index record in this bucket, false otherwise. 
819 1312 i Side Effects: 
821 1314 1 i-- 
822 1315 1 
823 1316 1 : ] 
BSe ae g global routine anl$2index_record(rec_bsd,key_bsd,report,indent_level) = begin 
826 1319 2 bind 
827 1320 2 b = .rec_bsd: bsd, 
828 1321 2 k = mer bsd: bsd, 
134 1356 $ kp = .k(Bsd$l_bufptr) + .kCbsd$l_offset]: blockl,bytel; 
831 1324 2 local 
832 1325 2 hp: ref block{,byte], 

833 1326 2 sp: ref block(,bytel, 

te \36f § Length: long; 

836 1329 2 

837 1330 2 ! First we have to ensure that this index record really fits in the used 

838 1331 2! space of the bucket. If not, we have a drastic structure error. 

HH 138 2 ! Begin by ensuring that the first byte fits. 

re 133 5 hp = .b(bsd$l_bufptr); 

843 1336 : if .b{bsd$l_ offset] gequ shot bh bby trecspece then ( 

844 1337 3 anl$format_error(anirms$_badidxrecfit,.b(bsd$l_vbn]); 

ae? 1338 Fe. signal (anTrms$_unwind) ; 

847 1349 5° 

ae Ht 9} § ! Now calculate the total length of the index record. 

850 1328 2 sp = .b(bsd$l_bufptr] + .b{bsd$l_offset); 

851 1344 § length = 1 + : 

852 1345 (case .splirc$v_ptrsz] from 0 to 3 of set 

853 1346 3 (0): 2; 


oo nN Ww 


ww 


ants 
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RD = Print & Check an Index Reco 14-Sep-19 


2: 3; 

: 4& 

K : (anl$format_error(anirms$_badidxrecps,.b{bsd$l_vbn]); 
signal (anlrms$_unwind);); 


tes) + 

-kpCkey$b_keysz); 
! Now make sure the entire index record can fit into the used space. 
if .blbsd$l pliant pth ne pa gtru .hp(bkt$w_freespace] then ( 


an\$format_error antrms$_badidxrecfit..btbsd8l.vbnJ); 
signal (anTrms$_unwind) ; 


—~N 
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v04 INDEX RECO RD = Pr Check an Index Reco 14-Sep-19 ANALYZ.SRCJRMS210X.832;1 (17) 
; re } rs ! Now we can format the index record if requested by the caller. 

; 29 6 if .report then ( 

; i : rt: ! Begin with a header. 

: B74 136 anl$format_line(3,.indent_level,anirms$_idxrec,.b{bsd$i_vbnJ,.b(bsd$l_offset]); 
; 87> 44 anl$format_skip(05; 

; 877 : +4 ; ! Now the bucket pointer and its length. 

; 879 1371 anl$format_line(0,.indent_level+1 ,anirms$_idxrecptr,.splirc$v_ptrsz]+2, 
; 880 1 i 4 tase -splircSy y-birsz from 0 to 2 of set 

; «#881 13735 4 QJ: 3442 

; es 1374 4 1): «Sp 179° O01; 

P4 8 1375 4 2): -spll :0. 2,0); 

; 884 1 26 tes)); 

; 885 137 : : ; 

3 Hy 1378 ; ! Now the key value. Dump it in hex with a heading. 

; 888 1380 3 an ($format_line(0,.indent_level+1,anirms$_idxkeybytes); 

; 889 1381 4 begin 

; 890 1388 “ local : 

; 891 138 4 key dsc: descriptor; 

; 89 1384 4 

; 1385 4 build_descriptor(key_dsc,.k pesey $b aheysz]..$p + 1+  .splirc$v_ptrsz]+2); 
: 894 1386 4 anl$format_hex(.indent_level+ ley. “dsc); 

; 895 1387 3 end; 

; 896 1388 2); 


‘5 
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v04 ANLSZINDEX_RECORD = Pr Check an Index Reco 14-Sep-1984 ANALYZ.SRCIRMS210X.83 (18) 
98 1 $8 ! Now we can ectust ty check the oqeege sty of the index record. Most of the 
99 1 ! work involves chec ing its fit in the bucket, which has already been done. 

ope : 4: ! We have a few things left, however. 
808 : it, ! Check the index record control bits. There aren't any. 
904 1395 if .splirc$v recordcb] nequ 0 then _ ; 
't4 ' 36 anl$format_error(anirms$_badidxrecbits,.b(bsd$l_vbnJ); 
907 P 1398 statistics_callback( 
908 P 1399 
909 P 1400 : If we are accumulating statistics, then we have to call the 
910 P 1401 ! index record callback routine, telling it the level and overall 
911 p 1eR8 ' record length. 
aig P 140 d 
91 P 1404 anlSindex_callback(.hpCbkt$b_levell, 
914 P 1405 -length, 
915 e 1608 3 
916 140 ); 
917 1408 
918 1409 : Now we can advance to the next index record. If there isn't another 
919 1410 ! one, then just return without modifying the BSD. Otherwise update 
95° rdf ! the BSD. 
358 1218 if .b{bsd$l_offset]+.length lssu .hplbkt$w_freespace] then ( 
Ge 1414 b(bsd$l_ offset] = .blbsd$l_offset]™+ .length; 
924 1415 return true; 
925 rat | § ) else 
926 141 return false; 
927 1418 2 
928 1419 1 end; 
INFO#212 L1:1350 
Null expression appears in value-required context 


OFFC 00000 eENTRY AL Sg INDEX RECORD. Save R2,R3,R4,R5,R6,R7,- ; 1317 
5B 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R11 ; 
5a 000000006 8F D0 00009 MOVL §#ANLRMSS_UNWIND, R10 : 
3E 08 C2 0001 SUBL2 #8, S : 
5 4 AC 00 9001 MOVL REC_BSD, R3 ; 1320 
50 8 AC DO 0001 MOVL. KEY7BSD. RO : 1321 
55 oc AO 08 ao C1 00018 ADDL3 8 (RO), 12(RO), RS : 1322 
56 0¢ a3 00 00021 MOVL iF R35, HP : 1334 
08 A3 06 Ab 10 00 ED 00025 CMP7vV. #0, #16, 4(HP), 8(R3) : 1336 
13 1A 0002¢ BGTRU 1$ : 
04 A3 DD 0002E PUSHL  4(R3) : 1337 
000000006 af DD 00 1 PUSHL #ANLRMS$_BADIDXRECFIT ; 
0000G CF 2 FB 00037 CALLS #2 ANLSFORMAT_ERROR : 
5A DD 0003¢ PUSHL : 1338 
68 01 FB 0003E CALLS #1, LIBSSIGNAL : 
5 Oc =(A3 08 A3 C1 00041 1$: ADDL3 &(R3), 12(R3), SP > 1343 
54 é 02 90 EF 00047 EXT2v #0, #2, (SP), R4 > 1345 
0 00 4 CF 0004C CASEL . #0, : 
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INDEX_RECORD = Pr Check an Index Reco 14-Sep-1984 ANALYZ.SRCIRMS21DX.832;1 (18) 
0017 0012 0000 0008 00050 2$: . WORD i$: $.- : 
33-53" 
50 02 pO 00058 3s MOVL #2, RO : 
1F 11 00058 BRB : 
50 03 b 5D 4$ MOVL #3, RO : 
la 11 00 BRB 3 
50 04 ©0 00062 S$: MOVL #4, RO : 
15 11 000 BRR 3 
04 A3 DD 00067 68: PUSHL 4(R3) t 1349 
000000006 8F ODD 006A PUSHL #ANLRMS$_BADIDXRECPS : 
0000G CF 2 FB 00 9 CALLS #2, ANLSFORMAT_ERROR 3 
A dD 0007 PUSHL 1 : 1350 
6B gi FB 00077 CALLS #1, LIBSSIGNAL : 
0 pb, OO7A CLRL OR + 1345 
57 16 AS 9A 0007C 7$: MOVZBL 20(R5), R7 : 1352 
58 01 A740 9E 00080 MOV 1(R7)CROJ, LENGTH + 1351 
59 oR 08 a3 Ci 00085 ADDL3 8(R3), LENGTH, R9 : 1356 
59 06 Ab 10 00 ED OO08A CMP72vV #0, #16, 4(HPS, RO : 
13 1E 000 BGEQU 8S : 
06 a3 0D 0009 PUSHL 4(R3) : 1357 
000000006 8F DD 0009 PUSHL M#ANLRMS$_BADIDXRECFIT : 
0000G CF 02 FB 000 CALLS #2, ANLSFORMAT_ERROR ; 
5A DD 000A PUSHL R : 1358 
6B 01 FB 0002 CALLS #1, LIBSSIGNAL : 
71 Oc ac 9 OOOAS 8$: BLBC REPORT, 14$ : 1362 
7E 04 A3 7D OOOA MOV 4(R3), =(SP) 1 1366 
000000006 8F DD OO00AD PUSHL #ANLRMS$_IDXREC : 
10 AC ODD 00083 PUSHL  INDENT_LEVEL 3 
03 DD 00086 PUSHL @ : 
00006 CF 05 FB 00088 CALLS #5, ANLSFORMAT_LINE ; 
7E D4 000BD CLRL 0s = ( §P) : 1367 
00006 CF 01 FB 000BF CALLS #1, ANLSFORMAT_SKIP : 
02 54 CF 000C4 CASEL R4, #0, : 1372 
0014 000¢ 0006 000C8 9$: . WORD 108-98, - : 
12$-9$ : 
7E 01 A2 3C OOOCE 108: MOVZ2WL 1(SP), =(SP) : 1373 
0B 11 00002 BRB 13$ : 
7E 01 A2 18 00 EF 00004 11$: EXTZV #9 #24, 1(SP), =(SP) : 1374 
03 11 OOODA BRB 13§ : 
01 A2 0D 000DC 128: PUSHL  1(SP : 1375 
02 AG OF 90008 13$: PUSHAB 2(R4 > 1371 
000000006 8F ODD O0E@ PUSHL #ANLRMS$_IDXRECPTR : 
55 10 Ac 01 C1 000E ADDLS #1, INDERT_LEVEL, RS : 
55 DD OO0ED PUSHL R5 ; 
43 D4 OOOEF CLRL. ss = (SP) : 
0000G CF FB OOOF1 CALLS #5, ANLSFORMAT_LINE Bo: 
000000006 8F DD 90086 PUSHL #ANLRMS$_IDXKEVBYTES : 1380 
5 DD OOOFC PUSHL R5 : 
7E D4 OOOFE CLRL. = ( SP) F 
0000G CF Q FB 90100 CALLS #3, ANLSFORMAT_LINE ; 
6f DO 00105 MOVL R KEY psc > 1385 
06 A 03 Ad42 9E 00108 MOVAB 3(R4)ESP), KEY_DSC+4 ; 
5E DD 010¢ PUSH P > 1386 
7E 10 Ac 02 ¢1 0011 ADDL3 #2, INDENT_LEVEL, -(SP) ; 


59 


3; Routine Size: 


RMS 


06 AG 


348 bytes, 


DX = Analyze Thi 
INDEX _REC 


a tor Prolog 2 Indexed 
nt 


D- Pr Check an Index Rec 
e ff oS 
is 
900000066 of DO 
00006 ff 2 Ff 
conto 
04 00006 Op 4 
D4 00 
f po 
7E 0c ag A 
0000G CF FB 00 
10 0 +4 
08 A3 : tb 00 
50 01 00 00 
04 00 
50 04 00 
04 00 


Routine Base: S$CODES + 07CB 
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CALLS gy ANLSE AT_WEX 
BIT6 iss 

BEQL 

PUSHL 43) 

PUSHL #ANLRMS$ BAD IDARECBITS 
CALLS no ANL SFORMAT_ERR 
CMPB = ANL SGB_MODE, #2 
BEQL 1 

CMPB AN, $GB_MODE » % 
BNEQ 

CLRL -(SP) 

PUSHL i NGTH 

MOVZBL (HP), =¢ 

CALLS "ANC SINDER X CALLBACK 
CMPZV g "6 

BLEQ 

ADDL LENGTH. 8(R3) 

MOVL 1, RO 

RET 

CLRL RO 

RET 
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PRIMARY_D Z 


Rsbetl *ANLS2PRIMARY_DATA_RECORD = Print & Check A Primary Data Record’ 


TALRECORD = Print 
} Funct tenet Description: 


records or RRVs. 
' Formal Parameters: 


Implicit Outputs: 
global data 


Returned Value: 


Side Effects: 


bind 
b = .rec_bsd: bsd; 


own 


local 


hp: ref block{,byte 
sp: ref block 


! of the bucket. 
hp = .b(bsd$l_bufptr); 


if .b{bsd$l_offset] gequ .h 
anl$format_error(an 
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Primary data records exist 


rec_bsd Address of BSD describing the data record. 


key_bsd Address of BSD describing key for this index. 
report A boolean, true if we are to print the record. 
indent _level Indentation level for the report. 

Implicit Inputs: 
global data 


Zascic ‘IRCSV_DELETED'), 
RRV*) 


Zascic ‘IRC$V 


Zascic ‘IRCS$VZNOPTRSZ') 


Cbkt$w_freespace] then 


rms$_baddatarec f 


( 
it,.blbsd$l_vbn)); 


! First we have to ensure that this data record fits in the used space 
If not, we have a drastic structure error. 
! ensuring that the first byte fits. 


Begin by 


his routine is responsible for printing and checking the contents 
of a prolog 2 primary data record. 
the data buckets of the primary index. 


in 
They can contain actual data 


rue if there is another data record in this bucket, false otherwise. 


global routine anl$2primary_data_record(rec_bsd,key_bsd,report,indent_level) = begin 
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a . signal (anirms$_unwind); 


: Now calculate the Length of the record not including the actual data. 
! Set up @ pointer RP to the cata record. 


= pecoeest .bufptr] + .b{bsd$l_offset); 
tength 


ut “spl ircu_ nop trsz] then 0 else 
: e te: Piney ptrsz tren 0 to 3 of set 


— error (anirms$_baddatarecps,.blbsd$l_vbn]); 
signal (anlfms$_unwind) ;); 


= .sp + * Length; 
it not .splirc$v_ rev) and -anl$gl_fatCfat$v_rtype] nequ fat$c_fixed then 
Length =". length + 2; 


SETTER TER ES SER EL 


! Now make sure that all those bytes fit into the used portion of the bucket. 


if obi best gti rectie. length gtru .hpCbkt$w_ freespaced then ( 
Sformat_error(anirms$ _baddatarecfit,. Cbsd$l_vbnJ); 
signal (anTrms$_unwind) ; 
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04 ); 

05 

06 ! Now determine and save the length of the data record. Add it to the 

34 ! overall Length. 

0 if not .splirc$v_ rev) then ( 

data_length = peocectanse -anl$gl_fatCfat$v at typed of s 

Cfat$c_fixed]: -anl$gl_ Stl tatSu. yan 
Cfat$c_variable, 
ha Vfcd: -rpl0,0,16,0); 


es); 
R Length = som : .data_length; 


! Finally, make sure the entire thing fits. 
if blonds gti fects. elongth gtru .hp(bkt$w_freespace] then ( 


Sformat_errorlanirms$ _baddatarecfit,. Cbsd$l_vbn)); 
signet (anTrms$_unwind) ; 
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! 5 ! Now we can actually format the structure, if requested. 
if .report then ( 
| § ! We begin with a nice heading. 
| anl$format_line(3,.indent_level,anirms$_idxprimrec,.b{bsd$l_vbn],.b{(bsd$l_offsetJ); 
anl$format_skip(0); 


! Now the control flags. 
anl$format_flags(.indent_level+1,anirms$_idxprimrecflags,.splirc$b_control],data_flags_def); 
! Now the record ID. 
anl$format_line(0,.indent_level+1,anirms$_idxprimrecid,.splirc$b_idJ); 
! Now the RRV, both record ID and bucket pointer, if present. 
if not .splirc$v_noptrsz] then 
anl$format_line(0,.indent_level+1,anlrms$_idxprimrecrrv, 

-splirc$b rrv_idj,.splircS$v_ptrszJ+2, 
(case “solirgSy ptrsz from 0 to 2 of set 

}: -$p03,0,16,0); 

1): $053 -0.6% 03: 
2): -$pC3,0,32,0); 
tes)); 


! Call a routine to format the primary key, if present. 
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if not .spCirc$v_rrv] then ( 
anl$format_line(0,.indent_level+1,anirms$_idxkeybytes); 
anl $2 format primary ey 
(if .anl$gl_fatCfat$v_r 
-key_bsd,. indent_level+ 


SSS 
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$yped nequ fat$c_fixed then .rp+2 else .rp), 
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! Now we can actually check the sntege tty of this data record. Most of 
! the checking has been done, since it involved the fit of the record 
! in the bucket. However, we have a few things to do. 


ooo 


BSAISS 


8 ! Check the control bits, ignoring the pointer size. 

4} anl$check_flags(.b{bsd$i_vbnJ,.splirc$b_control] and %x'fc*,data_flags_def); 
08 ! Now we can check the record length for VFC records to make sure they are 
et ! Long enough to contain the header. 

085 


if not “solircSy cry) her. 
if .ani$gl_fat fotSu rtyped ogly fat$c_vfc and 
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1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

12ee 1 4 

108 1 -data_length lssu .ani$gl_fatCfat$b_vfcsize] then 

H+ : an $format_error(anirms$_vfctooshort,.b{bsd$l_vbn]); 

Hh 4 . : if not .splirc$v_rrv] and not .splirc$v_deleted] then statistics_callback( 
1998 P 1 ! If we are accumulating statistics, we need to call the data 
3 ; 2 ! record callback routine, telling it the overall record Length. 
1095 P15 anl$data_callback(.data_length, 

1096 P 15 0, 

1097 P 15 0 

1098 P 15 05; 

1099 15 ); 

1100 1588 

1101 1589 : Now we want to advance on to the next data record. If there is room in 
1108 1239 ! the bucket for another, then update the BSD. Otherwise don't touch it. 
1104 1236 if .b{bsd$l_offset]+.length issu .hplbkt$w_freespace] then ( 

1105 159 b{bsd$l_offset] = .b{bsd$l_offset]™+ .length; 

1106 1594 return true; 

110 1595 ) else 

1108 1298 return false; 

1109 15 

1110 1598 1 end; 

INFO#2120 L1:1492 

Null expression appears in value-required context 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


44 45 546 45 4€C 45 44 SF 56 24 43 52 49 OD OO18C P.ABC: .ASCII <13>\IRCS$V_DELETED\ : 
56 52 52 SF 56 24 43 52 49 O09 OQOI9A P.ABD: .ASCII <9>\IRCSV_RRV\ : 
5A 53 52 54 50 4F 4E SF 56 24 43 52 49 OD OO1A4 P.ABE: .ASCII <13>\IRCSV_NOPTRSZ\ : 


.PSECT SOWNS,NOEXE,2 
00000000 00000000 00000004 000a0 DATA_FLAGS DEF: eG 
00000000" 00000000 00000000' o00ac “ADDRESS P.ABC, P.ABD, P.ABE ; 


-PSECT SCODES,NOWRT,2 
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ANLS2PRIMARY_DATA_RECORD = Print & Check A Prim 14-Sep-19 ANALYZ.SRCJRMSZ1DX.B32;1 (21) 
OFFC 00000 ENTRY ts el Wey DATA_RECORD, Save R2,R3,R4,R5,-; 1448 
R6,R7,RB,RI,RIO,RT1 é 
B 000000006 00 9 90002 MOVAB LIBSSIGNAL, R11 : 
A 000000006 8F 00 000 MOVL § #ANLRMSS$_UNWIND, R10 : 
: 04 AC BO 90010 MOVL  REC_BSD,~R6 + 1451 
08 A6 7D 00014 MOVG &(RB), R7 + 1475 
57 06 AB 10 0 ED 00018 CMPZV #9, #16, 4(HP), R7 : 
13 1A 0001 BGTRU 1 : 
06 Ab DD 00 PUSHL  4(R6) + 1476 
000000006 8F DD 000 PUSHL § #ANLRMS$_BADDATARECFIT : 
00006 CF 92 FB 00 3 CALLS #2, ANLSFORMAT_ERROR : 
A DD 000 PUSHL R10 t 1477 
68 01 FB 000 CALLS #1, LIBSSIGNAL : 
52 57 0C AB C1 00033 1$ ADDL3 12(R6), R7, SP + 1483 
3 62 04 £0 00038 BBS a4, (SP), ?$ + 1486 
53 62 0 09 EF 0003C EXTZV #0, #2, (SP), R3 + 1487 
00 53 CF 00041 CASEL R3. #0, #3 : 
0017 0012 000D 0008 00045 2% WORD 3$-28.- : 
237s" : 
66 03 DO 0004D 3s: MOVL #3, RS : 
1F 11 00050 BRB 8$ F 
55 04 00 00052 4$: MOVL #4, RS : 
1A 11 0005 BRB : 
55 05 pO 00057 Ss: MOVL #5, RS : 
15 11 O005A BRB 8$ : 
04 A6 DD 0005C 6$ PUSHL  4(R6) + 1491 
00000000G 8F DD O00SF PUSHL #ANLRMS$ BADDATARECPS F 
0000G CF 02 FB 00065 CALLS #2 ANLSFORMAT_ERROR $ 
5A DD O006A PUSHL > 1492 
68 01 FB 0006C CALLS #1, LIBSSIGNAL F 
55 D4 OO06F 7$: CLAL + 1487 
55 02 CO 00071 8$: ADDL2 #2, LENGTH : 1485 
54 52 5 C1 00074 ADDL LENGTH, SP, RP 3: 1495 
0c 62 03 £0 00078 BBS #3, . + 1496 
01 00006 DF 04 00 ED 0007¢ CMPZV #0, #4, @ANLSGL_FAT, #1 : 
03 13 00083 BEQL 6-9 : 
55 02 cd 00085 ADDL2 #2, LENGTH + 1497 
50 57 55 C1 00088 9$: ADDL3 LENGTH, R7, RO + 1501 
50 04 AB 10 00 €D 0008C CMPZ7V #0, #16, 4CHP), RO ; 
13 TE 00092 BGEQU 108 : 
04 ab DD 00094 PUSHL  4(R6) > 1502 
000000006 8F DD 00097 PUSHL #ANLRMS$_BADDATARECEF IT ; 
00006 CF 02 FB 0009D CALLS #2, ANLSFORMAT_ERROR : 
5A DD 000A2 PUSHL 1 > 1503 
01 FB OOOA4 CALLS #1, LIBSSIGNAL 3 
2A 62 03 €0 O00OA7 10$: BBS #3. (SP), 15$ + 1509 
53 00006 CF DO 000AB L  ANLSGL_FAT, R3 : 1510 
50 63 04 99 EF 90080 EXT2v #0, #47 (RS), RO : 
01 0 D1 00085 CMPL =O. #1 : 1511 
06 12 000B8 BNEG = ‘1 : 
53 10 A3 3C OOOBA MOVZWL 16(R3), DATA_LENGTH : 
12 11 0008E BRB 14$ ; 
02 50 D1 000CO 11$:  CMPL RO, #2 : 1513 
05 1 000C3 BLSSU. 126 : 
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03 50 01 000C CMPL RO, #3 : 
g 1B Mite BLEQU 1 : 
53 1 cE OCA 12$:  MNEGL #1, DATA_LENGTH : 
3 } OCD BRB 448 : 
53 4 3C OOOCF 13$:  MOVZWL (RP), DATA_LENGTH + 1514 
3 CO 0 Ode 14$:  ADDL2 DATA LENGTR, ahENGTH + 1516 
59 57 C1 9000 15$: ADDL LENGTH, R + 1521 
59 04 As 10 09 FD 0 009 CMP2V #16, cin). RO : 
13 1E O00DF BGEQU 108 : 
04 Abd DD O00E1 PUSHL  4(R6) + 1522 
000000006 8F DD OO0E4 PUSHL #ANLRMS$_BADDATARECFIT : 
0000G CF 9¢ FR BOOEA CALLS a ANLSFORMAT ERROR § 
A DD OOOEF PUSHL : 1523 
6 01 FB 000F1 CALLS L18S$1GNAL : 
0 0c Ac ‘ O00F4 16$:  BLBS Re Ebor : 1527 
00BA 1 OO0rs BRW : 
DD OOOFB 17% PUSHL + 1531 
04 Ab DD 000FD PUSHL  4(R6) : 
000000006 8F DD 00100 PUSHL #ANLRMS$_iDXPRIMREC : 
10 AC DD 90106 PUSHL  INDENT_LEVEL 3 
03 DD 00109 PUSHL @# : 
0000G CF 05 FB 0010B CALLS #5 ANLS$FORMAT LINE é 
7E D4 00110 CLRL (§p) : 1532 
0000G CF 01 FB 00112 CALLS a1 ANLSFORMAT_SKIP 3 
0000" CF 9F 00117 PUSHAB DATA_FLAGS_DEF~ : 1536 
7 62 9A 0011B MOVZBL (SP) ; 
000000006 8F DD 0011E PUSH aANLRMSS IDXPRIMRECFLAGS F 
57 10 AC 01 C1 00124 ADDL3 #1, INDENT_LEVEL, R7 : 
57 DD 00129 PUSHL 7 ; 
00006 CF 04 FB 00128 ALLS #4, ANLSFORMAT_FLAGS : 
7E 01 A2 9A 00130 MOVZBL 1($P), - + 1540 
00000000G 8F DD 00134 PUSHL MANLRMS$_IDXPRIMRECID é 
57 DD 0013A PUSHL 7 : 
7E D4 0013C CLRL. = SP) : 
0000G CF 04 FB O013E CALLS a4, oon, Sr Cnet LINE é 
3B 62 04 €0 00143 BBS #4, 23$ ~ : 1544 
50 62 02 00 EF 00147 EXTZV #0, #2, esbis RO : 1547 
02 00 50 CF 0014¢ CASEL #0. a : 
0014 000¢ 0006 00150 18$: WORD RO, #0 : 
20$-18$.- ; 
213-188 : 
7E 03 A2 3C 00156 19$:  MOVZWL 3(SP), -(SP) + 1548 
OB 11 0015A BRB : 
7E 03 A2 18 00 a 0015¢ 20$:  EXTZV #0, #24, 3(SP), -(SP) : 1549 
03 11 00162 BRB 2$ ; 
03 A2 DD 00164 21$:  PUSHL  3(SP) + 1550 
7E 62 02 00 EF 00167 22$: EXTZV 4&0, #2, (SP), -(SP) > 1546 
6£ 02 C0 0016¢ ADDL2 #2. (SP) ; 
7E 02 A2 9A 0016F MOVZBL 2(SP), =(SP) : 
000000006 8F DD 00173 PUSHL #ANLRMS$_IDXPRIMRECRRV > 1545 
57 DD 00179 PUSHL R7 F 
7E D4 0017B CLRL. = (SP) : 
00006 CF 06 FB 00170 CALLS » ANLSFORMAT_LINE ; 
2F 2 03 £0 00182 23$: BBS : : : 1555 
000000006 8F DD 00186 PUSHL #ANLRMS$_IDXKEYBYTES : 1556 
57 DD 0018C PUSHL 7 : 
7E D4 0018E CLRL. = = (SP) : 


28 


| 
| 
| 
3; Routine Size: 550 bytes, Routine Base: $CODE$ + 0927 
| 
| 


vn 
oo- 


enselon - Analyze Dies for roles 2 Index 


p-1984 $3: 33:98 ote Ol isgese ¥4.0-742 


aw 


exed F 1 
ANL$S2PRIMARY_DATA_RECORD = Print & Check A Prim 14-Sep-1984 11 ANALYZ.SRCJRMSZ21DX.832;1 
00006 CF FB 001 CALLS #3, ANLSFORMAT_LINE 
7E ti AC $3 cf $195 ADDL #2, INDENT LEVEL, -(SP) 
08 AC DD OO19A PUSHL KEY. 
01 00006 oF 04 00 FO 0190 CMPZV #0, #4, @ANLSGL_FAT, #1 
08 13 O01A4 BEOQL 4 : 
50 02 Ad 9E 001A6 MOVAB (R4), RO 
50 DD OO1AA PUSHL 
02 11 OO1AC RB 25$ 
54 0D O01 AE 4$: PUSHL RP 
0000v CF 03 FB 0018 5$: CALLS #3, ANLSZ2FORMAT_PRIMARY_KEY 
0000 CF 9F 001B5 26$:  PUSHAB DATA_FLAGS_DEF 
50 62 9A 00189 MOVZBL rt 
7E 50 FFFFFFO3 8F CB 001BC BICL3 #-25%, RO, -(SP) 
04 Ad DD 00164 PUSHL  4(R6) 
00006 CF 03 FB OO1C7. CALLS #3, ANLS$CHECK_FLAGS 
43 62 03 £0 O01CC BBS 43, , 29$ 
50 00006 CF 00 00100 MOVL §ANLSGL_FAT, RO 
03 60 04 00 ED 00105 CMPZ2V #0, #47 (RO), #3 
16 12 001DA BNEQ 2 
53 OF AO 08 00 ED 0019C¢ CMPZ7V #0, #8, 15(RO), DATA_LENGTH 
O£ 18 001E2 BLEQU 27$ 
04 A6 DD OO01E4 PUSHL  4(R6) 
000000006 8F DD 001E7 PUSHL #ANLRMS$_VFCTOOSHORT 
0000G CF 02 FB OO1ED CALLS He ANLSFORMAT_ERROR 
1D 62 03 €0 O01F2 27$: BBS #3, (SP), 29$ 
19 62 02 £0 001F6 BBS #2, (SP). 29$ 
02 00006 CF 91 OO1FA CMPB  ANLSGB_MODE, #2 
07 13 OO1FF BEQL 
04 00006 CF 91 00201 CMPB = ANLSGB_MODE, #4 
0B 12 00206 BNEQ 29$ 
7E 7C 00208 288: CLRQ <=(SP) 
7E D4 O0020A CLRL -(SP) 
53 DD 0020C PUSHL DATA_LENGTH 
0000G CF 04 FB 0020E CALLS #4, ANLSDATA_CALLBACK 
59 04 AB 10 00 ED 00213 29$: CMP2V #0. #16, 4(HP), RO 
08 1B 00219 BLEQU 
08 A6 55 ¢cO 0021B ADDL2 LENGTH, 8(R6) 
50 01 DO 0021F MOVL #1, RO 
04 00222 RET 
50 D4 00223 308: CLRL RO 
04 00225 RET 


? 
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+4 Rsbttl *ANLS2FORMAT_PRIMARY_KEY = Format Primary Key from Data’ 
1 i Functional Description: 
8¢ ; This routine is called to dump the or inary key from a data 
Q ; record in a prolog 2 indexed file. This is more difficult than 
be prolog 3, because the primary key is not already extracted. 
06 i Formal Parameters: 
0 : ptr Pointer to data record, 
0 : key_bsd Address of BSD describing key for this index. 
° indent_level Indentation level for the report. 
1 i Implicit Inputs: 
: } global data 
1 i Implicit Outputs: 
: global data 
1 i Returned Value: 
; none 
; Side Effects: 
—_ 


global routine anl$2format_primary_key(rec_ptr,key_bsd,indent_level): novalue = begin 


bind 
k = .key_bsd: bsd; 


local 
kp: ref blockC,bytel, 
segment: long, 
buffer_i: long, 
local_described_buf fer (buf fer,256); 


! Begin by setting up a pointer to the key descriptor. Then define 
! a couple of arrays, one for the sizes and one for the positions. 


kp = .k(bsd$l_bufptr] + .kCbsd$l_offset]; 
begin 
> ee : 
size_vector = a oad fog 5 FS vector(,bytel], 
pos_vector = kpl[key$w_position0O]: vectorl word); 
! It's really pretty simple. we loop through each of the key segments 
! and extract the data from the record. The data is concatenated into 
! the key buffer. 
bufferClen] = 0; 


incru segment from 0 to .kp[key$b_segments]-1 do ( 


ee ee ee ed ed 
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ch$move(.size_vector[.segment],.rec_ptr+.pos_vector[.segment], 
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1169 1656 4 ebufferCptr]+.b fferllen]); 

11% 192 4 ss bufferllen] = .bufferllen] + ste “wectorL.segnent); 

1178 1888 end: 

117 1660 

Vie 1660 ! Now we can dump the key in hex. 

1176 166 anl$format_hex(.indent_level, buffer); 

1177 1664 

1178 1665 return; 

1179 1666 

1180 1667 1 end; 


01FC 00000 ENTRY ANL $2FORMAT_PRIMARYKEY, Save R2,R3,R4,R5.- : 1625 
5E FEFC CE 9€ 00002 MOVAB -260(SP), SP : 
50 08 AC 00 00007 MOVL KEY_BSD, RO + 1628 
7E 0100 8F 3C 00008 MOVZ2WL #256, BUFF 3 1634 
04 AE 08 AE 9E 00010 MOVAB BUFFER+8, BUFFER+4 : 
57 0c Ad 08 ad C1 00015 ADDL3 8(RO), 12(RO), KP + 1640 
6E 84 00018 CLRW BUF eR : 1651 
58 12 A? 9A 0001D MOVZBL 18(KP), R8 + 1653 
58 07 00021 DECL RB : 
56 D4 00023 CLRL SEGMENT : 1655 
23 11 00025 R 2$ : 
52 2C A746 9A 00027 18 MOVZBL 44(KP)CSEGMENT], R2 : 
51 1C A746 3C 0002C MOVZ2WL 28(KP)CSEGMENT], Ri : 
51 04 AC CO 00031 ADDL2 REC PIR. Ri : 
50 6E 3C 00035 MOVZ2WL BUFFER, : 1656 
50 04 AE CO 00038 ADDL2 BUFFERSS™ 20 : 
60 61 52 28 0003C MOvC3 = R2, », (RO) : 
50 2C A746 9A 00040 MOVZBL 44 (KP) SEGMENT], RO : 1657 
6E 50 AO 00045 ADDW2 = RO, BUFF : 
56 D6 00048 INCL SEGMENT > 1653 
58 56 D1 0004A 2$ CMPL SEGMENT, R8 ; 
D8 1B 0004D BLEQU 1$ ee 
5E DD 0004F PUSHL SP : 1663 
Oc AC DD 00051 PUSHL INDENT _LEVEL : 
0000G CF 02 FB 00054 CALLS #2, ANC SE ORMAT HEX : 
04 00059 RET + 1667 


; Routine Size: 90 bytes, Routine Base: $CODE$ + OB4D 
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196 } Rsbttl *ANLS2SIDR_RECORD = Print & Check A Secondary Data Record’ 
1876 1 ! Functional Description: 
1671 7! This routine is responsible for printing and checking the contents 
1or¢ 1! of a prolog 2 secondary data record. Secondary data records exist 
102? : } in the data buckets of secondary indices. They contain SIDR records. 
1675 1 ! Formal Parameters: 
1979 zz r Address of BSD describing the data record. 
1677 1! BSD is updated to point at next record. 
1678 1! key_bsd Address of BSD describing the key for this index. 
tory 7} report A boolean, true if we are to print the record. 
lent : } indent_levei Indentation level for the report. 
1o8¢ 1! Implicit Inputs: 
1685 1! global data 
1684 1! “> 
1685 1 ! Implicit Outputs: 
1686 1! global data 
1687 1! 
1688 1 ! Returned Value: : ; = 
1e8 : True if there is another SIDR in this bucket, false otherwise. 
1691 1 ! Side Effects: 
Hb 24 1! 
1693 1 !-- 
1694 1 
1695 1 ; ; : 
io 2 global routine anl$2sidr_record(rec_bsd,key_bsd,report,indent_level) = begin 
1698 5 bind 
1699 2 = .rec_bsd: bsd, 
1700 2 k = .key_bsd: bsd; 
1701 2 
1708 2 own me 
1703 2 sidr_flags_def: vector(6,long] initial ( 
1704 2 i, 
1705 2 0, 
1706 2 0, 
1707 2 0, 
1708 2 0. . 
1709 2 uplit byte (Zascic ‘IRCS$V_NODUPCNT*) 
1710 2 ); 
1711 § 
ie local 
171 § hp: ref block(, byte], 
1714 sp: ref block{,bytel, 
1715 2 kp: ref block(,bytel, 
1716 § Length: long, 
1717 p: bsd,_ 
1718 sidr_pointers; 
1i8 
1721 : First we have to ensure that the SIDR record fits in the used space of _ 
\7s¢ ! the bucket. If not, we have a drastic structure error. Begin by ensuring 
\T¢? ' that the first byte fits. 
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hp = .b{bsd$l_bufptr); 

if -bCbedSt offsets gequ .hplbdkt$w crocepece? thes ( 
a 


nl $format_error(anirms$_baddatarecfit,.blosd$l_vbnJ); 
signal (anTrms$_unwind); 


! Now we calculate the length of the entire SIDR record. 


sp = .b(bsd$l_bufptr) + .bl(bsd$l_offset); 
Length = 1 + 


if .splirc$v_nodupcnt] then 0 else 4) + 

if .splirc$v_nodupcnt] then .spl2,0,16,0] else .spl6.0,16,0)); 
! Make sure the record fits in the used portion of the bucket. 

if .blbsd$l etfeetJs. length gtru .hp(bkt$w_freespace] then ( 


an\$format_error(anirms$_baddatarecfit,.b{bsd$l_vbnJ); 
signal (anTrms$_unwind); 


1¢ 
(if 
2+ 
(if 


); 
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! Now we can format the SIDR record fixed portion, if requested. 


kp = .kCbsd$l_bufptr] + .kCbsd$l_offset]; 
if .report then ( 


! Start with a nice header. 


anl$format_line( 


3 


anl$format_skip(0); 
! Now format the flags. 


anl$format_flags(.indent_level+l,anirms$_idxsidrflags,.splirc$b_control],sidr_flags_def); 


indent _level,anirms$_idxsidr,.b{bsd$l_vbn],.b{bsd$l_offset]); 


' Now format the record ID. 


anl$format_line(0,.indent_level+l,anirms$_idxsidrrecid,.splirc$b_id]); 


! Now format the duplicate count if it exists. 


if not .splirc$v_nodupcnt] then ; 
anl$format_Line(0,.indent_level+l,anirms$_idxsidrdupcnt,.sp{2,0,32,0)); 


! Now the key. 


We dump it in hex. 


anl$format_line(0,.indent_level+l,anirms$_idxkeybytes) ; 


begin 
fetal 


key_dsc: descriptor; 


build_descriptor (key dsc, .kplkey$b_keyszJ, 
-SPp 


anl$format_hex(. 
end; 


4 
+ 
f 
d 


-spCirc$v_nodupcnt] then 0 else 4) + 
ent_level+2,key_dsc); 
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! Now we can actually check the integrity of the SIDR record. All we have 
! to check is the flags. Don't get confused by the pointer size bits. 


anl$check_flags(.b{bsd$i_vbnJ),.splirc$b_control] and &x'fc',sidr_flags_def); 
! At this point, if we are ge ag a report, we're done. If we aren't 

; SF we are checking the file), then we want to check all of the 
! SIDR pointers. 


sidr_pointers = 0; 
if not .report then ( 
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! Set up a BSD to describe the first SIDR pointer. This includes 
! setting the work lLongword to the number of bytes worth of pointers 
! existing in the record. 


init_bsd(p); 
copy eet hss ie 
plbsd$l_offset] = -b{bsd$l_offset] + 


+ 


— 
+ 


iif -splirc$v_noptrsz] then 0 eise 4) + 
-kpCkey$b_keysz]; 
p(bsd$l_work] = (if_.spLirc$v_noptrsz] then .sp{2.0.16.0] else .sp[6.0,16.0]) - 
-kpCkey$b_keysz]; 


! Now we can loop through each pointer, checking its integrity. 
! We'll count them as we go. 


do increment(sidr_pointers) while anl$2sidr_pointer(p, false); 
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, anl$bucket(p,-1); 

i : 1 statistics callback ( 

9 P g : If we are accumulating statistics, we want to call the data 
340 P 4 : record callback routine and tell it the overall record length. 
 ¥ : ; ! We also need to tell it the number of SIDR pointers in this record. 
308 P 7 anl$data_callback(. length, 
344 P 1828 0. 
345 P 9 . ; 
346 v 0 -Sidr_pointers); 
347 1 ); 


oh 
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1349 1 ¢ ' Now we want to advance on to the next SIDR in this bucket. If there isn't 
; ? : Z i room "ter one, then we're done. Otherwise update the 8SD. 
1 1835 if .blbsd$l_offset]+.length Llssu .hplbkt$w_freespace] then ( 
1 ‘ 1 $ bCbSd$i_of ftseti = : -b bsd$i "offset i=+ “Cength: 2 
1 1 return true; 
1386 ee 8 Oe Oe 
retur : 
; 23 1320 eturn false 
1358 1841 1 end; 
| -PSECT $PLITS,NOWRT,NOEXE,2 
(54 GE 43 50 55 44 GF GE SF 56 24 43 52 49 OF 00182 P.ABF: ASCII <14>\IRCSV_NODUPCNT\ : 
-PSECT SOWNS,NOEXE,2 
00000000 00000000 00000000 00000000 00000004 00088 SIDR FLAGS DEF: ae 
00000000" o00cc [ADDRESS P.ABF °C ; 
PSECT $CODE$,NOWRT,2 
OFFC 00000 ENTRY ANL$2S1DR_RECORD, Save R2,R3,R4,R5,R6,R7.- : 1696 
5E 28 ¢2 90002 suBL2 #46, SP : 
6 04 AC 00 0000 MOVL REC_BSD, R7 : 1699 
52 08 AC 00 00009 MOVL Key BSD, R2 + 1700 
59 OC A? DO 0000D MOVL 12(R7 te Mp + 1725 
SA 08 A7 00 00011 MOVL B(R? », R10 : 1727 
SA 06 ad 10 00 ED 00015 CMPZ7v #0, rie 4(HP), R10 : 
1B 1A 00018 BGTRU ‘$ : 
04 A? DD 0001D PUSHL 4(R7) : 1728 
000000006 8F DD 00020 PUSHL #ANLRMS$ BADDATARECE IT : 
0000G CF 02 FB 00026 CALLS #2, ANLSFORMAT ERROR 3 
000000006 8F DD 900¢8 PUSHL #ANLRMS$_U ul + 1729 
000000006 00 01 FB 00031 CALL wi L1BSSIGNAL : 
6 5A Oc a7 C1 00038 1$: ADDL 12(R7), R10, SP : 1734 
v, 66 04 €1 0003D BBC a4, (SP), 2$ : 1737 
50 04 00041 CLRL RO : 
03 11 00043 BRB 3$ : 
50 04 pO 00045 33 MOVL #4, RO : 
06 66 04 g 00048 3$ BBC a4. (SP), 4$ : 1739 
51 02 Ab 3C 0004C MOVZWL (SP), ri : 
04 11 0005 BRB $ 3 
51 A6 3C 00052 48: MOVZWL 6(SP), R : 
6 04 A140 9€ 00056 S$: MOV (R1) RO], LENGTH : 1738 
04 AE A 6— C1 00058 ADDL LENGTH 10, 4(SP) + 1743 
04 AE 04 Ad 10 00 ED 60060 CMP2V , #16, SOAP), 44SP) ; 
18 1E 0006 BGEQU : 
06 A? OD 00069 PUSHL  4(R7) : 1744 
000000006 8F DD 0006¢ PUSHL #ANLRMS$ BADDATARECFIT : 
00006 CF 02 FB 00072 CALLS #2, ANLSFORMAT_ERROR : 
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#ANLRMS$_UNWIND 
#1, LIBSSIGNAL 

}, 12¢R2), KP 
orf, 7$ 
4(R7) 
MANLRMS$_IDXSIDR 
INDENT LEVEL 
#5, ANLSFORMAT LINE 
#1, ANLSFORMAT_SKIP 
SIDR_FLAGS_DEF 

(SP)> <(SPY 
#ANLAMSS$_IDXSIDRFLAGS 
a. INDENT_LEVEL, R2 
#4, ANLSFORMAT_FLAGS 
1(5P), =<(SP 
#ANLRMS$_IDXSIDRRECID 
-(SP) 
#4, ANLSFORMAT_LINE 
#4, (SP), 8$ 
#ANLRMS$_IDXSIDRDUPCNT 
-(SP) 
#4, ANLSFORMAT_LINE 
MANLRMS$_IDXKEYBYTES 
-(SP) 
#3, ANLSFORMAT_LINE 
20(KP), KEY_DSC 
#4, », 9 
10$ 
#4, RO 
4(RO) ESP, KEY_DSC+4 
#3. INDENT LEVEL, -(SP) 
#2. ANLSFORMAT_HEX 
SIDR_FLAGS_DEF 
#253, RO, =(SP) 
ANLSCHECK_FLAGS 
POINTERS 


eg 17$ 
#0, (SP), #0, #24, P 
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#2, am Source? 
#4, (SP), 12 
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Rb 

Ré, P+20 
R_POINTERS 

Py 
ANLS2S1DR_POINTER 
-(SP) 


#2, ANLSBUCKET 
ANL$GB_MODE, #2 


ANLS$GB_MODE, #4 
SIDR_POINTERS 

=(SPJ 

LENGTH 

#4, ANLSDATA_CALLBACK 
#0. #16, 4(HP), 4(SP) 


LENGTH, 8(R7) 
#1, RO 


RO 
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Rsbttl *ANLS2SIDR_POINTER = Format & Analyze SIDR Pointer’ 


i Functional Description: 
This routine is responsible for oracst ior and analyzing one of the 
pointers in a SIDR record for prolog 2 files. 


Formal Parameters: 
pointer_bsd Address of BSD describing the pointer. The work 
longword in the BSD is assumed to contain a count 
of remaining byses in the SIDR record. 
report Boolean, true if we are to format the pointer. 
indent_level Indentation level for the report. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
True if there is another SIDR pointer, false otherwise. 


Side Effects: 
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global routine anl$2sidr_pointer(pointer_bsd,report,indent_level) = begin 
bind 


Se 


p = .pointer_bsd: bsd; 
own 


RANTS 


pointer_flags_def: vector([6,long] initial( 
0. 
uplit byte (Zascic "IRCS$V_DELETED'), 


uplit byte (Zascic ‘IRC$V_NOPTRSZ") 


SSSSSSs. 
uw 


, ate Ss3yss 
S382VF 


local 


555 
wn 


pp: ref block(€, byte], 
ength: long; 
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' We know the SIDR record fits in the used space of the bucket, because 
! that was checked in ANL$2SIDR_RECORD. 


! So we can calculate the overall length of the pointer. 
pp = .plbsd$l_bufptr]) + .plbsd$l_offset); 
ength = 1¢ 


So 
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1899 3 : 5; 

1500 4 Fg}; (anl$format gerror(eniracs " genenentbneticcnmertin vbn]); 

1901 signal (anlfms$_unwind); 

1306 tes); 

1904 ! Make sure the entire pointer fits in the SIDR record. If not, that's a 

b i drastic structure error. 

1909 if .length gyre -pCbsd$l nt then ( 

1908 an\$format_errortanirms$_badsidrptrfit,.plbsd$l_vbn]); 

Hb '94 ; signal (anTrms$_unwind); 
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anl$format_flags(.indent_level,anirms$_idxsidrptrflags,.pplirc$b_control],pointer_ ay def); 


131} ! Now we can format the SIDR pointer if requested. 

131 if .report then ( 

1914 

1915 ! Format the flags. 

bat 

191 

1918 

1313 ! And the record ID and bucket VBN. 

1921 anl$format_line(0,. indent og enrers Séastéretcret. sett. 0,8,0]..pplirc$v_ptrszJ+2, 
19 ¢ 4 (¢ se -pplir Sy pers ] from 0 to 2 of set 
19 4 93: «po a5: 

1924 4 1 -pp ‘0, 4,0 

1925 4 : -pp °0,32,0]: 

1926 3 tes)); 

1927 ); 
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Now we have to check the record pointer. The only naee Be to check is 
i the control flags. Don't get confused by the pointer size 


anl$check_flags(.plbsd$l_vbn],.pplirc$b_control] and %x'fc',pointer_flags_def); 


! Now we want to advance on to the next pointer. Reduce the count of 
If it goes to zero, there are no more pointers. 


Cbsd$l_work] = ptbeds works - .length; 
omar i work] “gery. 0 
CbSd$l_offset] = a etbsdSt_ offset] + .length; 
- return true; 
return false; 


enti :1901 


212 
expression appears in ne ata context 


-PSECT SPLITS,NOWRT,NOEXE,2 


O1C1 P.ABG: .ASCII <13>\IRC$V_DELETED\ 
Or P.ABH: .ASCII <13>\IRCS$V_NOPTRSZ\ 


-PSECT SOWNS,NOEXE,2 
00000000 00000000 00000004 000D0 POINTER -FLAGS . — 


45 44 SF 56 24 43 ; 


0 
4F 4E SF 56 24 43 0 


0, 0 
00000000" 000DC ADDRESS P.ABG 
00000000 Q00E0 -LON 
00000000° O00E4 «ADDRESS P.ABH 


~PSECT SCODES,NOWRT,2 


00FC 00000 .ENTRY ANL $2S1DR POINTER, Save R2,R3,R4,R5,R6,R7 
57 000000006 00 9€ 00002 MOVAB LIBSSIGNAC, R7 
56 000000006 BF DO 00009 MOVL §§ #ANLRMS$_ UNWIND, R6 
54 04 AC DO 00010 MOVL POIN TER R_BSD 
52 OC AG 08 A& C1 00014 ADDL3 T2(R4), 
62 02 00 EF OOO1A EXT2V oon “35, (PP), sP 
03 00 55 CF OOOTF CASEL RS. #0. #3 
0012 000D 0008 00023 1$: WORD ¢$-18.- 
4$-1$.- 
5$-1$ 
53 03 pO 00028 28 MOVL #3, -RB 
1F 11 0002E BRB 6$ 
53 04 DO 00030 3$ MOVL #4, R3 
1A 11 00033 BRB 
53 05 pO 00035 4$ MOVL #5, R3 
15 11 00038 RB 
04 Ad DD 0003A 5$ PUSHL  4(R4) 


Pree ee Se Se Se Se Se Se Se Se Se BeBe Se Oe Be oe 
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y0e=000 AM SESIDR POINTER ~"FoPuar'G Anctoze SIDS Peine Weekebelons friesses | AMAT Obisgas2.ve.05re2, age 8) 
000000006 8F DD 0003 PUSHL #ANLRMS$_BADDATARECPS : 
0000G CF oe FB 29908 CALLS #2, ANLSFORMAT_ERROR : 
6 DD 0004 PUSHL R + 1901 
67 Q1 FB OO04A CALLS #1, LIBSSIGNAL : 
D4 00040 CLRL R3 : 1896 
53 D6 OO04F 6S: INCL LENGTH + 1895 
4% mM 53 p1 00051 CMPL LENGTH, 20(R4) + 1907 
13° 1B 00055 BLEQU : 
06 Aa DD 90057 PUSHL  4(R4) + 1908 
000000006 8F DD 0005A PUSHL #ANLRMS$_BADSIDRPTREIT : 
0000G CF . 02 FB 00060 CALLS #2, ANLSFORMAT_ERROR 3 
56 DD 00065 PUSHL R6 : 1909 
67 01 FB 00067 CALLS #1, LIBSSIGNAL : 
51 08 AC €E9 OO06A 7$: BLBC REPORT + 1913 
0000" CF 9F 0006 PUSHAB POINTER_FLAGS_DEF + 1917 
7E 62 9A 0007 MOVZBL (PP), -TSP : 
000000006 &8F DD 0007 PUSHL #ANLRMS$_IDXSIDRPTRFLAGS : 
Oc AC DD 0007B PUSHL INDENT _LEVEL 3 
0000G CF 04 FB OO07E CALLS #4, ANCSFORMAT_FLAGS : 
50 62 02 00 EF 00083 EXTZvV #0, #2, (PP), RO 3 1922 
02 00 50 CF 00088 CASEL RO, #0, #2 : 
0014 000C 0006 0008C 8$: .WORD 9$-8$,- : : 
105-93. 
7E 02 A2 3C€ 00092 9$: MOVZWL 2(PP), =(SP) + 1923 
0B 11 00096 BRB 1 : 
7E 02 A2 18 00 EF 00098 10$: EXTZV #0, #24, 2(PP), -(SP) + 1926 
03 11 0009 BRB 12$ ; 
02 A2 DD OOOAO 11$: PUSHL  2(PP) : 1925 
7E 62 02 00 EF OOOA3 12$: EXTZV #0, #2, (PP), =(SP) + 1921 
6E 02 CO 000A8 ADDL2 #2, (SP) : 
7E 01 A2 9A OOOAB MOVZBL 1(PP), -(SP) : 
000000006 1 8F DD OOOAF PUSHL  #ANLRMS$_IDXSIDRPTRREF : 
OC AC DD 00085 PUSHL  INDENT_LEVEL 3 
7E D4 00088 CLRL -(SP) : 
00006 CF 06 FB OOOBA CALLS #6, ANLSFORMAT_LINE : 
0000" CF 9F OOOBF 13$: PUSHAB POINTER FLAGS_DEF : 1931 
5 62 9A 00063 MOVZBL (PP), R : 
7€ 50 FFFFFFO3 8F CB 000C6 BICL3 #258, RO, -(SP) ; 
04 A& DD OOOCE PUSHL  4(R4) : 
00006 CF 03 FB 000D1 CALLS #3, ANLSCHECK_FLAGS ; 
14 Ad 53 ce 00006 SUBL2 LENGTH, 20(R4) + 1937 
08 13 OOODA BE QL 14 + 1938 
0B AG 53 cO 000DC ADDL2 LENGTH, 8(R4) + 1939 
50 07 DO O00EO MOVL #1, RO + 1942 
04 O00E3 RET : 
50 D4 OO0E4 148: CLRL RO : 
4 000E6 RET > 1944 


3 Routine Size: 231 bytes, Routine Base: $CODE$ + 0D77 


ls 1665 1945 1 : 
3 1466 1946 0 end eludom 


~% 


13 
RMS210K DX = Analyze Things for Prolog 2 Indexed F 18. $ep-1984 23: 4 AxX-11 Bliss-32 v4.0-742 
v04-000 AN SOS TDR _POINTER ~ Foemet & analyte SIDR Point 12-900- 4982 7 £33: 5 ANALYZ.SRCJRMS210X.832;1 


Sete Ge Be Oe we 


eEXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 


SCODES 3678 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, path od | ig bob 
SPLITS 477 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SOWNS 232 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ecocccece Symbols ------<-- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$D0UA28: (SYSLIBILIB.L32;1 18619 95 0 1000 00:01.8 


Information: 3 
Warnings: 
Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RMS21DX/OBJ=OBJ$:RMS2IDX MSRC$:RMS21DX/UPDATE=(ENH$:RMS21DX) 


Size: 3678 code + 709 data bytes 
Run Time: 01:01.6 

Elapsed Time: 03:11.5 

Lines/CPU Min: 1896 


Lexemes/CPU-Min: 18683 
poet Used: 5399 pages 
Compilation Complete 
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